Index: xotcl/library/patterns/adapter.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r5ce5a10c82bc948f50fc4542f844dcd50de1eae3
--- xotcl/library/patterns/adapter.xotcl	(.../adapter.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/patterns/adapter.xotcl	(.../adapter.xotcl)	(revision 5ce5a10c82bc948f50fc4542f844dcd50de1eae3)
@@ -1,4 +1,4 @@
-# $Id: adapter.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# $Id: adapter.xotcl,v 1.2 2004/07/03 21:19:39 neumann Exp $
 package provide xotcl::pattern::adapter 0.9
 
 Class Adapter -superclass Class  
@@ -22,7 +22,7 @@
 }
 
 Adapter instproc init args {
-    my instfilterappend adapterFilter
+    my instfilter add adapterFilter
     next
     my instproc setRequest {r sr} {
 	my set specificRequest($r) $sr