--- gforth/kernel/require.fs	2002/04/27 14:52:32	1.20
+++ gforth/kernel/require.fs	2002/09/14 08:20:21	1.21
@@ -60,7 +60,7 @@ create image-included-files 4 , A, ( poi
     \G @file{./foo.fs}
     included-files 2@ 0
     ?do ( c-addr u addr )
-	dup >r 2@ 2over compare 0=
+	dup >r 2@ 2over str=
 	if
 	    2drop rdrop unloop
 	    true EXIT