--- gforth/glocals.fs	1996/01/25 16:45:52	1.18
+++ gforth/glocals.fs	1996/05/03 13:05:05	1.20
@@ -505,7 +505,6 @@ forth definitions
     then ;
 
 : TO ( c|w|d|r "name" -- ) \ core-ext,local
-\ !! state smart
  0 0 0. 0.0e0 { c: clocal w: wlocal d: dlocal f: flocal }
  ' dup >definer
  state @ 
@@ -518,7 +517,7 @@ forth definitions
      [ ' wlocal >definer ] literal
      OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
      [ ' dlocal >definer ] literal
-     OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF
+     OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF
      [ ' flocal >definer ] literal
      OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
      -&32 throw