--- a/Parser.st	Fri Mar 01 20:14:20 2002 +0100
+++ b/Parser.st	Tue Mar 05 18:55:45 2002 +0100
@@ -2468,8 +2468,8 @@
                     ^ VariableNode type:#GlobalVariable name:varName asSymbol
                 ].
                 choice == #ClassVariable ifTrue:[
-                    classToCompileFor addClassVarName:varName.
-                    ^ VariableNode type:#ClassVariable class:classToCompileFor name:varName
+                    classToCompileFor theNonMetaclass addClassVarName:varName.
+                    ^ VariableNode type:#ClassVariable class:classToCompileFor theNonMetaclass name:varName
                 ].
                 choice == #InstanceVariable ifTrue:[
                     classToCompileFor theNonMetaclass addInstVarName:varName.
@@ -6325,6 +6325,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.326 2002-02-26 10:53:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.327 2002-03-05 17:55:45 tm Exp $'
 ! !
 Parser initialize!