Index: xotcl/library/patterns/Singleton.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r5ce5a10c82bc948f50fc4542f844dcd50de1eae3
--- xotcl/library/patterns/Singleton.xotcl	(.../Singleton.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/patterns/Singleton.xotcl	(.../Singleton.xotcl)	(revision 5ce5a10c82bc948f50fc4542f844dcd50de1eae3)
@@ -1,4 +1,4 @@
-# $Id: Singleton.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# $Id: Singleton.xotcl,v 1.2 2004/07/03 21:19:39 neumann Exp $
 package provide xotcl::pattern::singleton 0.8
 
 Class SingletonBase
@@ -57,7 +57,7 @@
 }
 
 Singleton instproc init args {
-  my instfilterappend singletonFilter
+  my instfilter add singletonFilter
   #
   # specialized singletons have to look up the singleton class
   # first
@@ -73,4 +73,4 @@
   next
 }
 
-    
\ No newline at end of file
+