Index: xotcl/library/patterns/ChainOfResponsibility.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r5ce5a10c82bc948f50fc4542f844dcd50de1eae3
--- xotcl/library/patterns/ChainOfResponsibility.xotcl	(.../ChainOfResponsibility.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/patterns/ChainOfResponsibility.xotcl	(.../ChainOfResponsibility.xotcl)	(revision 5ce5a10c82bc948f50fc4542f844dcd50de1eae3)
@@ -1,4 +1,4 @@
-# $Id: ChainOfResponsibility.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# $Id: ChainOfResponsibility.xotcl,v 1.2 2004/07/03 21:19:39 neumann Exp $
 package provide xotcl::pattern::chainOfResponsibility 0.9
 
 Class ChainOfResponsibility -superclass Class
@@ -28,7 +28,7 @@
 }
 
 ChainOfResponsibility instproc init args {
-  my instfilterappend chainingFilter
+  my instfilter add chainingFilter
   my parameter {successor}
   # chained operations hold their value of failure
   my array set chainedOperations {}
@@ -40,4 +40,4 @@
 
 ChainOfResponsibility instproc removeChainedOperation {name} {
   my unset chainedOperations($name)
-}
\ No newline at end of file
+}