--- a/VarNode.st	Wed Jan 17 13:27:10 1996 +0100
+++ b/VarNode.st	Wed Jan 17 19:39:23 1996 +0100
@@ -256,8 +256,8 @@
 	] ifFalse:[
 	    aStream nextPut:#pushGlobalL; nextPut:litIndex; nextPut:0
 	].
-	"slot for generation and cell address (4 byte)"
-	aStream next:5 put:0.
+	"slot for generation and cell address (6 byte)"
+	aStream next:6 put:0.
 	^ self
     ].
     (type == #ClassVariable) ifTrue:[
@@ -268,8 +268,8 @@
 	] ifFalse:[
 	    aStream nextPut:#pushClassVarL; nextPut:litIndex; nextPut:0
 	].
-	"slot for generation and cell address (4 byte)"
-	aStream next:5 put:0.
+	"slot for generation and cell address (6 byte)"
+	aStream next:6 put:0.
 	^ self
     ].
     (type == #BlockVariable) ifTrue:[
@@ -360,8 +360,8 @@
 	] ifFalse:[
 	    aStream nextPut:#storeGlobalL; nextPut:litIndex; nextPut:0
 	].
-	"slot for generation and cell address (4 byte)"
-	aStream nextPut:0; nextPut:0; nextPut:0; nextPut:0; nextPut:0.
+	"slot for generation and cell address (6 byte)"
+	aStream next:6 put:0.
 	^ self
     ].
     (type == #ClassVariable) ifTrue:[
@@ -372,8 +372,8 @@
 	] ifFalse:[
 	    aStream nextPut:#storeClassVarL; nextPut:litIndex; nextPut:0
 	].
-	"slot for generation and cell address (4 byte)"
-	aStream nextPut:0; nextPut:0; nextPut:0; nextPut:0; nextPut:0.
+	"slot for generation and cell address (6 byte)"
+	aStream next:6 put:0.
 	^ self
     ].
     (type == #ClassInstanceVariable) ifTrue:[
@@ -478,5 +478,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.14 1995-12-03 12:16:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.15 1996-01-17 18:39:23 cg Exp $'
 ! !