Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	17 Aug 2006 01:27:54 -0000	1.5
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	11 Sep 2006 06:50:25 -0000	1.6
@@ -12,10 +12,19 @@
   ::xotcl::nonposArgs proc optional
 }
 
-::xotcl::Object instproc contains cmds {
-  my requireNamespace
-  namespace eval [self] $cmds
+if {$::xotcl::version < 1.5} {
+  # XOTcl 1.5 comes already with a predefined, more powerful
+  # implementation of contains.
+
+  ::Serializer exportMethods {
+    ::xotcl::Object instproc contains
+  }
+  ::xotcl::Object instproc contains cmds {
+    my requireNamespace
+    namespace eval [self] $cmds
+  }
 }
+
 ::xotcl::Object instforward db_1row -objscope
 
 ::xotcl::Object instproc serialize {} {