--- a/CascadeNode.st	Wed Oct 13 01:25:45 1993 +0100
+++ b/CascadeNode.st	Wed Oct 13 01:26:26 1993 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1989-93 by Claus Gittinger
               All Rights Reserved
 
-%W% %E%
+$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.2 1993-10-13 00:25:39 claus Exp $
 '!
 
 !CascadeNode methodsFor: 'code generation'!
@@ -41,36 +41,26 @@
 !CascadeNode methodsFor: 'evaluating'!
 
 evaluate
-    |t argValueArray index|
+    |t argValueArray|
 
     t := receiver evaluateForCascade.
     argArray isNil ifTrue:[
         t perform:selector.
         ^ t
     ].
-    argValueArray := Array new:(argArray size).
-    index := 1.
-    argArray do:[:arg |
-        argValueArray at:index put:(arg evaluate).
-        index := index + 1
-    ].
+    argValueArray := argArray collect:[:arg | arg evaluate].
     ^ t perform:selector withArguments:argValueArray
 !
 
 evaluateForCascade
-    |t argValueArray index|
+    |t argValueArray|
 
     t := receiver evaluateForCascade.
     argArray isNil ifTrue:[
         t perform:selector.
         ^ t
     ].
-    argValueArray := Array new:(argArray size).
-    index := 1.
-    argArray do:[:arg |
-        argValueArray at:index put:(arg evaluate).
-        index := index + 1
-    ].
+    argValueArray := argArray collect:[:arg | arg evaluate]. 
     t perform:selector withArguments:argValueArray.
     ^ t
 ! !