--- a/VarNode.st	Wed Nov 06 23:17:17 1996 +0100
+++ b/VarNode.st	Thu Nov 07 14:58:57 1996 +0100
@@ -408,34 +408,39 @@
     (type == #MethodVariable
     or:[type == #BlockArg
     or:[type == #BlockVariable]]) ifTrue:[
-	^ token variableValue
+        ^ token variableValue
     ].
     (type == #InstanceVariable) ifTrue:[
-	^ selfValue instVarAt:index
+        ^ selfValue instVarAt:index
     ].
     (type == #GlobalVariable) ifTrue:[
-	(Smalltalk includesKey:name) ifTrue:[
-	    ^ Smalltalk at:name
-	].
+        (Smalltalk includesKey:name) ifTrue:[
+            ^ Smalltalk at:name
+        ].
 "
-	self error:('global ' , name , ' is undefined').
+        self error:('global ' , name , ' is undefined').
 "
 
-	^ UndefinedVariable name:name.
-	^ nil
+        ^ UndefinedVariable name:name.
+        ^ nil
     ].
     (type == #ClassVariable) ifTrue:[
-	^ Smalltalk at:(selfClass name , ':' , name) asSymbol
+        ^ Smalltalk at:(selfClass name , ':' , name) asSymbol
     ].
     (type == #ClassInstanceVariable) ifTrue:[
-	^ selfClass instVarAt:index
+        ^ selfClass instVarAt:index
     ].
     (type == #ThisContext) ifTrue:[
-	^ thisContext
+        ^ thisContext
+    ].
+    (type == #PrivateClass) ifTrue:[
+        ^ selfClass privateClassesAt:name asSymbol
     ].
     "not reached"
     self halt:'bad type'.
     ^ value
+
+    "Modified: 6.11.1996 / 17:28:17 / cg"
 !
 
 store:aValue
@@ -538,5 +543,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.22 1996-10-14 18:44:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.23 1996-11-07 13:58:57 cg Exp $'
 ! !