--- gforth/glocals.fs	1995/11/15 17:29:08	1.16
+++ gforth/glocals.fs	1996/01/25 16:45:52	1.18
@@ -488,7 +488,7 @@ forth definitions
     \ this gives a unique identifier for the way the xt was defined
     \ words defined with different does>-codes have different definers
     \ the definer can be used for comparison and in definer!
-    dup >code-address [ ' bits >code-address ] Literal =
+    dup >code-address [ ' spaces >code-address ] Literal =
     \ !! this definition will not work on some implementations for `bits'
     if  \ if >code-address delivers the same value for all does>-def'd words
 	>does-code 1 or \ bit 0 marks special treatment for does codes
@@ -504,7 +504,6 @@ forth definitions
 	code-address!
     then ;
 
-\ !! untested
 : TO ( c|w|d|r "name" -- ) \ core-ext,local
 \ !! state smart
  0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }