--- gforth/glocals.fs	1996/01/25 16:45:52	1.18
+++ gforth/glocals.fs	1996/02/09 17:34:10	1.19
@@ -518,7 +518,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