--- gforth/glocals.fs	1995/04/20 09:42:54	1.11
+++ gforth/glocals.fs	1995/10/07 17:38:15	1.13
@@ -137,7 +137,7 @@ variable locals-dp \ so here's the speci
     \ defines the local "name"; the offset of the local shall be
     \ stored in a-addr
     create
-	immediate
+	immediate restrict
 	here 0 , ( place for the offset ) ;
 
 : lp-offset ( n1 -- n2 )
@@ -475,7 +475,7 @@ forth definitions
 : definer! ( definer xt -- )
     \ gives the word represented by xt the behaviour associated with definer
     over 1 and if
-	does-code!
+	swap [ 1 invert ] literal and does-code!
     else
 	code-address!
     then ;