--- a/CascadeNode.st	Fri Mar 19 14:20:32 2004 +0100
+++ b/CascadeNode.st	Fri Mar 19 14:26:58 2004 +0100
@@ -97,6 +97,8 @@
 evaluateForCascadeIn:anEnvironment
     |t argValueArray|
 
+    selector := selector asSymbol.
+
     receiver isSuper ifTrue:[
         ^ super evaluateForCascadeIn:anEnvironment
     ].
@@ -114,6 +116,8 @@
 evaluateIn:anEnvironment
     |t argValueArray|
 
+    selector := selector asSymbol.
+
     receiver isSuper ifTrue:[
         ^ super evaluateIn:anEnvironment
     ].
@@ -185,5 +189,5 @@
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.25 2003-03-28 15:37:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.26 2004-03-19 13:25:46 stefan Exp $'
 ! !