--- gforth/glocals.fs	1994/09/12 19:00:30	1.7
+++ gforth/glocals.fs	1994/10/24 19:15:58	1.8
@@ -509,5 +509,9 @@ forth definitions
  endif ; immediate
 
 : locals|
-  BEGIN  name 2dup s" |" compare 0=  WHILE
-         (local)  REPEAT  drop 0 (local) ;  immediate restrict
+    BEGIN
+	name 2dup s" |" compare 0<>
+    WHILE
+	(local)
+    REPEAT
+    drop 0 (local) ;  immediate restrict