--- a/Parser.st	Thu Aug 13 17:10:08 1998 +0200
+++ b/Parser.st	Tue Aug 25 09:26:28 1998 +0200
@@ -2002,7 +2002,7 @@
     varName := varName asSymbol.
     Smalltalk at:varName put:nil.
 
-    parseForCode ifFalse:[self rememberGlobalUsed:varName].
+    parseForCode ifFalse:[self rememberGlobalUsed:aName].
 
     ^ VariableNode type:#GlobalVariable name:varName
 
@@ -4691,6 +4691,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.186 1998-08-03 17:10:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.187 1998-08-25 07:26:28 tm Exp $'
 ! !
 Parser initialize!