--- a/VariableNode.st	Fri Oct 11 20:26:08 1996 +0200
+++ b/VariableNode.st	Fri Oct 11 20:26:37 1996 +0200
@@ -17,7 +17,7 @@
 	category:'System-Compiler-Support'
 !
 
-!VariableNode class methodsFor:'documentation'!
+!VariableNode  class methodsFor:'documentation'!
 
 copyright
 "
@@ -43,7 +43,7 @@
 "
 ! !
 
-!VariableNode class methodsFor:'instance creation'!
+!VariableNode  class methodsFor:'instance creation'!
 
 type:t class:class name:n
     ^ (self basicNew) type:t class:class name:n
@@ -269,7 +269,8 @@
         aStream next:6 put:0.
         ^ self
     ].
-    (type == #ClassVariable) ifTrue:[
+    ((type == #ClassVariable) 
+    or:[type == #PrivateClass]) ifTrue:[
 "/        aStream nextPut:#pushClassVar; nextPut:(selfClass name , ':' , name) asSymbol.
         litIndex := aCompiler addLiteral:(selfClass name , ':' , name) asSymbol.
         litIndex < 256 ifTrue:[
@@ -315,7 +316,7 @@
     "not reached"
     self halt:'bad type'.
 
-    "Modified: 13.4.1996 / 20:23:23 / cg"
+    "Modified: 11.10.1996 / 19:17:06 / cg"
 !
 
 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler
@@ -540,8 +541,8 @@
     "Created: 14.4.1996 / 00:46:32 / cg"
 ! !
 
-!VariableNode class methodsFor:'documentation'!
+!VariableNode  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.19 1996-04-25 17:09:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.20 1996-10-11 18:26:37 cg Exp $'
 ! !