--- a/AssignmentNode.st	Wed Aug 30 12:14:36 2000 +0200
+++ b/AssignmentNode.st	Thu Aug 31 12:01:00 2000 +0200
@@ -235,7 +235,7 @@
     ^ value
 ! !
 
-!AssignmentNode methodsFor:'printing'!
+!AssignmentNode methodsFor:'printing & storing'!
 
 printOn:aStream indent:i
     variable printOn:aStream.
@@ -260,5 +260,5 @@
 !AssignmentNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.32 2000-06-19 12:00:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.33 2000-08-31 10:01:00 cg Exp $'
 ! !

--- a/BinaryNode.st	Wed Aug 30 12:14:36 2000 +0200
+++ b/BinaryNode.st	Thu Aug 31 12:01:00 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 MessageNode subclass:#BinaryNode
 	instanceVariableNames:''
 	classVariableNames:''
@@ -189,7 +191,7 @@
     ^ (receiver evaluate) perform:selector with:(argArray at:1) evaluate
 ! !
 
-!BinaryNode methodsFor:'printing'!
+!BinaryNode methodsFor:'printing & storing'!
 
 printOn:aStream indent:i
     |needParen|
@@ -236,5 +238,5 @@
 !BinaryNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.28 2000-02-12 15:33:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BinaryNode.st,v 1.29 2000-08-31 10:00:58 cg Exp $'
 ! !

--- a/BlockNode.st	Wed Aug 30 12:14:36 2000 +0200
+++ b/BlockNode.st	Thu Aug 31 12:01:00 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 ParseNode subclass:#BlockNode
 	instanceVariableNames:'blockArgs statements home inlineBlock exitBlock blockVars
 		needsHome lineNr endLineNr blockArgAccessedInBlock numTemp
@@ -791,7 +793,7 @@
     "Modified: 2.7.1997 / 11:11:26 / cg"
 ! !
 
-!BlockNode methodsFor:'printing'!
+!BlockNode methodsFor:'printing & storing'!
 
 printOn:aStream indent:i
     |n "{Class: SmallInteger }"|
@@ -942,5 +944,5 @@
 !BlockNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.57 2000-02-12 15:33:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/BlockNode.st,v 1.58 2000-08-31 10:00:55 cg Exp $'
 ! !

--- a/CascadeNode.st	Wed Aug 30 12:14:36 2000 +0200
+++ b/CascadeNode.st	Thu Aug 31 12:01:00 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libcomp' }"
+
 MessageNode subclass:#CascadeNode
 	instanceVariableNames:''
 	classVariableNames:''
@@ -128,7 +130,7 @@
     ^ t
 ! !
 
-!CascadeNode methodsFor:'printing'!
+!CascadeNode methodsFor:'printing & storing'!
 
 printOn:aStream indent:i
     |needParen selectorParts index index2 arg nargs|
@@ -186,5 +188,5 @@
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.21 2000-02-12 15:33:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.22 2000-08-31 10:00:51 cg Exp $'
 ! !