--- gforth/glocals.fs	2002/05/28 08:54:27	1.48
+++ gforth/glocals.fs	2003/01/20 17:07:37	1.51
@@ -685,7 +685,7 @@ interpret/compile: TO ( c|w|d|r "name" -
     \ don't use 'locals|'! use '{'! A portable and free '{'
     \ implementation is compat/anslocals.fs
     BEGIN
-	name 2dup s" |" compare 0<>
+	name 2dup s" |" str= 0=
     WHILE
 	(local)
     REPEAT