--- gforth/glocals.fs	1994/09/12 19:00:30	1.7
+++ gforth/glocals.fs	1995/01/30 18:47:50	1.9
@@ -134,7 +134,8 @@ variable locals-dp \ so here's the speci
     postpone lp@ postpone c! ;
 
 : create-local ( " name" -- a-addr )
-	\ defines the local "name"; the offset of the local shall be stored in a-addr
+    \ defines the local "name"; the offset of the local shall be
+    \ stored in a-addr
     create
 	immediate
 	here 0 , ( place for the offset ) ;
@@ -263,7 +264,7 @@ locals-types definitions
 
 : -- ( addr wid 0 ... -- )
     }
-    [char] } word drop ;
+    [char] } parse 2drop ;
 
 forth definitions
 
@@ -509,5 +510,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