--- gforth/glocals.fs	2012/02/07 18:15:27	1.66
+++ gforth/glocals.fs	2012/02/13 22:08:58	1.68
@@ -79,11 +79,6 @@
 \ aligned correctly, but our locals stack must be float-aligned between
 \ words.
 
-\ Other things about the internals are pretty unclear now.
-
-\ Currently locals may only be
-\ defined at the outer level and TO is not supported.
-
 require search.fs
 require float.fs
 require extend.fs \ for case
@@ -572,12 +567,17 @@ forth definitions
     latest latestxt
     clear-leave-stack
     0 locals-size !
-    locals-mem-list @ free-list
-    0 locals-mem-list !
     0 locals-list !
     dead-code off
     defstart ;
 
+[IFDEF] free-old-local-names
+:noname ( -- )
+    locals-mem-list @ free-list
+    0 locals-mem-list ! ;
+is free-old-local-names
+[THEN]
+
 : locals-;-hook ( sys addr xt sys -- sys )
     def?
     0 TO locals-wordlist
@@ -657,6 +657,7 @@ forth definitions
 ' locals-:-hook IS :-hook
 ' locals-;-hook IS ;-hook
 
+
 ' (then-like)  IS then-like
 ' (begin-like) IS begin-like
 ' (again-like) IS again-like