--- gforth/glocals.fs	1995/04/06 16:56:12	1.10
+++ gforth/glocals.fs	1995/04/29 14:51:19	1.12
@@ -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 )
@@ -498,14 +498,14 @@ forth definitions
      OF POSTPONE laddr# >body @ lp-offset, POSTPONE d! ENDOF
      [ ' flocal >definer ] literal
      OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
-     abort" can only store TO value or local value"
+     -&32 throw
    endcase
  else
    [ ' locals-wordlist >definer ] literal =
    if
      >body !
    else
-     abort" can only store TO value"
+     -&32 throw
    endif
  endif ; immediate