--- a/Parser.st	Fri Aug 02 14:25:19 2002 +0200
+++ b/Parser.st	Wed Aug 07 15:01:15 2002 +0200
@@ -2639,7 +2639,7 @@
         Smalltalk at:#Undeclared put:(undeclared := IdentitySet new).
     ].
     undeclared add:tokenName asSymbol.
-    varName := (Smalltalk underclaredPrefix) , tokenName.
+    varName := (Smalltalk undeclaredPrefix) , tokenName.
     varName := varName asSymbol.
     Smalltalk at:varName put:nil.
 
@@ -5706,7 +5706,8 @@
     errorFlag := true.
 
     parseForCode ifFalse:[
-        self rememberGlobalUsed:tokenName
+        self rememberGlobalUsed:(Smalltalk undeclaredPrefix) , tokenName.
+        self rememberGlobalUsed:tokenName.
     ] ifTrue:[
         tokenName first isLowercase ifTrue:[
             ImplicitSelfSends ifTrue:[
@@ -6684,6 +6685,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.344 2002-07-31 16:44:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.345 2002-08-07 13:01:15 penk Exp $'
 ! !
 Parser initialize!