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.27.2.2 -r1.27.2.3
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	8 May 2019 14:22:02 -0000	1.27.2.2
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	8 May 2019 14:30:45 -0000	1.27.2.3
@@ -130,7 +130,7 @@
     # implementation of the method contains, that does NOT use try.
     #
     OrderedComposite instproc contains cmds {
-      my requireNamespace ;# legacy for older xotcl versions
+      :requireNamespace ;# legacy for older xotcl versions
       set m [Object info instmixin]
       if {"[self class]::ChildManager" ni $m} {
         set insert 1
@@ -170,7 +170,7 @@
     set parent [lindex [[self class] set composite] end]
     $parent lappend __children [self]
     set :__parent $parent
-    #my __after_insert
+    #:__after_insert
     #:log "-- adding __parent  $parent to [self]"
     return $r
   }