Index: tools/sxcat.adb
==================================================================
--- tools/sxcat.adb
+++ tools/sxcat.adb
@@ -514,11 +514,11 @@
    begin
       while I + 1 in Image'Range loop
          Parse (Image (I), Before, Valid);
 
          if Valid then
-            Parse (Image (I), After, Valid);
+            Parse (Image (I + 1), After, Valid);
 
             if Valid then
                Result (Before, After) := True;
             end if;