--- a/Parser.st	Tue Oct 23 21:08:45 2001 +0200
+++ b/Parser.st	Tue Oct 23 21:11:08 2001 +0200
@@ -2531,16 +2531,17 @@
      You can browse for methods with undeclareds by searching for global accesses
      to 'Undeclared:::*' (or use the search-undeclared item in the launchers menu)."
 
-    |varName|
+    |varName undeclared|
 
     varName := aName.
 
     "/ install as Undeclared:<name>, remember in Undeclared
 
-    (Smalltalk includesKey:#Undeclared) ifFalse:[
-        Smalltalk at:#Undeclared put:(IdentitySet new).
-    ].
-    (Smalltalk at:#Undeclared) add:tokenName asSymbol.
+    undeclared := Smalltalk at:#Undeclared.
+    undeclared isNil ifTrue:[
+        Smalltalk at:#Undeclared put:(undeclared := IdentitySet new).
+    ].
+    undeclared add:tokenName asSymbol.
     varName := (Smalltalk underclaredPrefix) , tokenName.
     varName := varName asSymbol.
     Smalltalk at:varName put:nil.
@@ -6008,6 +6009,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.309 2001-10-23 19:08:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.310 2001-10-23 19:11:08 cg Exp $'
 ! !
 Parser initialize!