--- gforth/savesys.fs	2000/09/23 15:46:58	1.3
+++ gforth/savesys.fs	2002/09/14 08:20:20	1.4
@@ -45,7 +45,7 @@
     forthstart
     begin \ search for start of file ("#! " at a multiple of 8)
 	8 -
-	dup 3 s" #! " compare 0=
+	dup 3 s" #! " str=
     until ( imagestart )
     here over - r@ write-file throw
     r> close-file throw ;