--- a/CascadeNode.st	Mon Jul 25 23:55:00 2011 +0200
+++ b/CascadeNode.st	Tue Jul 26 00:32:34 2011 +0200
@@ -163,12 +163,23 @@
     "Created: / 16.7.1998 / 20:03:51 / cg"
 ! !
 
+!CascadeNode methodsFor:'visiting'!
+
+acceptVisitor:aVisitor 
+    "Double dispatch back to the visitor, passing my type encoded in
+     the selector (visitor pattern)"
+
+    "stub code automatically generated - please change if required"
+
+    ^ aVisitor visitCascadeNode:self
+! !
+
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.28 2010-01-18 16:01:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.29 2011-07-25 22:32:34 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.28 2010-01-18 16:01:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.29 2011-07-25 22:32:34 vrany Exp $'
 ! !