Index: openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	14 Jan 2011 10:28:10 -0000	1.20
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	12 Aug 2013 20:01:06 -0000	1.21
@@ -80,7 +80,7 @@
   OrderedComposite instproc contains cmds {
     my requireNamespace ;# legacy for older xotcl versions
     set m [Object info instmixin]
-    if {[lsearch $m [self class]::ChildManager] == -1} {
+    if {"[self class]::ChildManager" ni $m} {
       set insert 1
       Object instmixin add [self class]::ChildManager
     } else {