--- gforth/cross.fs	2002/03/21 17:20:38	1.125
+++ gforth/cross.fs	2002/03/21 17:26:00	1.126
@@ -3352,7 +3352,7 @@ Variable outfile-fd
   dup @ dup IF addr-refs @ THEN
   swap >r
   over align+ tuck tcell swap - rshift swap 0
-  DO dup 1 and 
+  ?DO dup 1 and 
      IF drop rdrop snl-calc UNLOOP EXIT THEN 
      2/ swap 1+ swap 
   LOOP