Index: xotcl/library/patterns/OnCalleeProxy.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r5ce5a10c82bc948f50fc4542f844dcd50de1eae3
--- xotcl/library/patterns/OnCalleeProxy.xotcl	(.../OnCalleeProxy.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/patterns/OnCalleeProxy.xotcl	(.../OnCalleeProxy.xotcl)	(revision 5ce5a10c82bc948f50fc4542f844dcd50de1eae3)
@@ -1,4 +1,4 @@
-# $Id: OnCalleeProxy.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# $Id: OnCalleeProxy.xotcl,v 1.2 2004/07/03 21:19:39 neumann Exp $
 package provide xotcl::pattern::onCalleeProxy 0.8
 
 Class OnCalleeProxy -superclass Class  
@@ -23,7 +23,7 @@
 }
 
 OnCalleeProxy instproc init args {
-  my instfilterappend onCalleeProxyFilter
+  my instfilter add onCalleeProxyFilter
   next
   my instproc setCallee {callingObj a} {
     my set callee([string trimleft $callingObj :]) $a