--- a/CascadeNode.st	Fri Feb 26 13:03:12 1999 +0100
+++ b/CascadeNode.st	Fri Feb 26 13:13:31 1999 +0100
@@ -68,13 +68,13 @@
     msgs := OrderedCollection new.
 
     r := receiver.
-    [r isKindOf:CascadeNode] whileTrue:[
+    [r isCascade] whileTrue:[
         r := r receiver.
     ].
     r := r receiver.
 
     nd := self.
-    [nd isKindOf:CascadeNode] whileTrue:[
+    [nd isCascade] whileTrue:[
         msg := MessageNode new.
         msg receiver:r selector:nd selector args:nd args lineno:nd lineNumber.
         msgs addFirst:msg.
@@ -183,5 +183,5 @@
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.18 1998-07-16 18:54:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/CascadeNode.st,v 1.19 1999-02-26 12:13:31 cg Exp $'
 ! !