--- gforth/glocals.fs	1996/08/21 14:58:41	1.24
+++ 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,13 +518,13 @@ 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 ;