--- a/CascadeNode.st	Tue Nov 26 10:08:11 2002 +0100
+++ b/CascadeNode.st	Tue Nov 26 10:08:56 2002 +0100
@@ -105,8 +105,8 @@
 
     t := receiver evaluateForCascade.
     argArray isNil ifTrue:[
-        t perform:selector.
-        ^ t
+        ^ t perform:selector.
+        "/ t perform:selector. ^ t
     ].
     argValueArray := argArray collect:[:arg | arg evaluate].
     ^ t perform:selector withArguments:argValueArray
@@ -188,5 +188,5 @@
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.22 2000-08-31 10:00:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.23 2002-11-26 09:08:56 cg Exp $'
 ! !