--- gforth/compat/strcomp.fs	2002/09/14 08:20:20	1.1
+++ gforth/compat/strcomp.fs	2002/09/14 08:34:03	1.2
@@ -8,7 +8,7 @@
 \ and following.
 
 s" gforth" environment? [if]
-    defined str=
+    2drop defined str=
 [else]
     0
 [then]