--- gforth/glocals.fs	2002/05/28 08:54:27	1.48
+++ gforth/glocals.fs	2002/09/14 08:20:19	1.49
@@ -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