--- a/Parser.st	Thu Oct 18 15:02:44 2001 +0200
+++ b/Parser.st	Tue Oct 23 21:08:45 2001 +0200
@@ -2323,7 +2323,7 @@
      or a ParseNode as returned by variable"
 
     |correctIt varName suggestedNames newName pos1 pos2 rslt
-     varNameIsLowercase l how choice holder|
+     varNameIsLowercase l how choice holder undeclared|
 
     pos1 := tokenPosition.
     varName := tokenName.
@@ -2351,8 +2351,9 @@
         "/ allowing easy search for bad-spots later.
 
         varNameIsLowercase ifTrue:[
-            ((Smalltalk includesKey:#Undeclared)
-            and:[((Smalltalk at:#Undeclared) includes:varName asSymbol)]) ifFalse:[ 
+            undeclared := Smalltalk at:#Undeclared.
+            ((undeclared notNil)
+            and:[(undeclared includes:varName asSymbol)]) ifFalse:[ 
                 self warning:('adding ''' , varName , ''' as Undeclared.\\Remember to fix that later.') withCRs position:pos1 to:pos2.
             ].
             ^ self defineAsUndeclaredVariable:varName
@@ -6007,6 +6008,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.308 2001-10-18 13:02:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.309 2001-10-23 19:08:45 cg Exp $'
 ! !
 Parser initialize!