--- gforth/glocals.fs	1997/05/21 20:39:30	1.33
+++ gforth/glocals.fs	1997/10/04 17:33:53	1.35
@@ -322,6 +322,7 @@ create new-locals-map ( -- wordlist-map
 ' new-locals-find A,
 ' new-locals-reveal A,
 ' drop A, \ rehash method
+' drop A,
 
 slowvoc @
 slowvoc on
@@ -646,13 +647,16 @@ forth definitions
     case
 	[ ' locals-wordlist ] literal >definer \ value
 	OF >body POSTPONE Aliteral POSTPONE ! ENDOF
-	[ comp' clocal drop ] literal >definer
+	\ !! dependent on c: etc. being does>-defining words
+	\ this works, because >definer uses >does-code in this case,
+	\ which produces a relocatable address
+	[ comp' clocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF
-	[ comp' wlocal drop ] literal >definer
+	[ comp' wlocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
-	[ comp' dlocal drop ] literal >definer
+	[ comp' dlocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF
-	[ comp' flocal drop ] literal >definer
+	[ comp' flocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
 	-&32 throw
     endcase ;