--- gforth/glocals.fs	1996/07/16 20:57:09	1.23
+++ gforth/glocals.fs	1996/09/19 22:17:31	1.26
@@ -381,7 +381,7 @@ forth definitions
 
 \ If this assumption is too optimistic, the compiler will warn the user.
 
-\ Implementation: migrated to kernal.fs
+\ Implementation: migrated to kernel.fs
 
 \ THEN (another control flow from before joins the current one):
 \ The new locals-list is the intersection of the current locals-list and
@@ -518,17 +518,17 @@ forth definitions
     case
 	[ ' locals-wordlist >definer ] literal \ value
 	OF >body POSTPONE Aliteral POSTPONE ! ENDOF
-	[ ' clocal >definer ] literal
+	[ comp' clocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE c! ENDOF
-	[ ' wlocal >definer ] literal
+	[ comp' wlocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE ! ENDOF
-	[ ' dlocal >definer ] literal
+	[ comp' dlocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE 2! ENDOF
-	[ ' flocal >definer ] literal
+	[ comp' flocal drop >definer ] literal
 	OF POSTPONE laddr# >body @ lp-offset, POSTPONE f! ENDOF
 	-&32 throw
     endcase ;
-special: TO ( c|w|d|r "name" -- ) \ core-ext,local
+interpret/compile: TO ( c|w|d|r "name" -- ) \ core-ext,local
 
 : locals|
     \ don't use 'locals|'! use '{'! A portable and free '{'