--- gforth/glocals.fs	1994/07/08 15:00:43	1.4
+++ gforth/glocals.fs	1994/08/31 19:42:47	1.6
@@ -87,8 +87,11 @@ include search-order.fs
 \ lp must have the strictest alignment (usually float) across calls;
 \ for simplicity we align it strictly for every group.
 
+slowvoc @
+slowvoc on \ we want a linked list for the vocabulary locals
 vocabulary locals \ this contains the local variables
 ' locals >body ' locals-list >body !
+slowvoc !
 
 create locals-buffer 1000 allot \ !! limited and unsafe
     \ here the names of the local variables are stored
@@ -505,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