--- gforth/see.fs	2010/05/01 21:29:08	1.71
+++ gforth/see.fs	2010/05/02 16:58:02	1.72
@@ -315,7 +315,7 @@ VARIABLE C-Pass
 		S" DOES> " Com# .string 4 cells + EXIT endif
 	    [IFDEF] !;abi-code
 		over 2 cells + @ ['] !;abi-code >body = if  drop
-		    S" DOES> " Com# .string 4 cells + EXIT endif
+		    S" ;abi-code " Com# .string 4 cells + EXIT endif
 	    [THEN]
 	    endif
 	endif