--- gforth/glocals.fs	1994/07/29 11:16:23	1.5
+++ gforth/glocals.fs	1994/08/31 19:42:47	1.6
@@ -508,5 +508,6 @@ forth definitions
    endif
  endif ; immediate
 
-\ : locals|
-\ !! should lie around somewhere
+: locals|
+  BEGIN  sname 2dup s" |" compare 0=  WHILE
+         (local)  REPEAT  drop 0 (local) ;  immediate restrict