--- a/VarNode.st	Sun Jan 05 03:10:44 1997 +0100
+++ b/VarNode.st	Sun Jan 05 16:47:37 1997 +0100
@@ -480,14 +480,17 @@
     or:[type == #GlobalVariable
     or:[type == #ClassVariable
     or:[type == #BlockVariable
-    or:[type == #ClassInstanceVariable]]]]]]]) ifTrue:[
-	aStream nextPutAll:name. ^ self
+    or:[type == #PrivateClass
+    or:[type == #ClassInstanceVariable]]]]]]]]) ifTrue:[
+        aStream nextPutAll:name. ^ self
     ].
     (type == #ThisContext) ifTrue:[
-	aStream nextPutAll:'thisContext'. ^ self
+        aStream nextPutAll:'thisContext'. ^ self
     ].
     "not reached"
     self halt:'bad type'.
+
+    "Modified: 5.1.1997 / 16:42:39 / cg"
 ! !
 
 !VariableNode methodsFor:'queries'!
@@ -543,5 +546,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.23 1996-11-07 13:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.24 1997-01-05 15:47:37 cg Exp $'
 ! !