--- 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 $'
 ! !