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.16 -r1.17
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	5 Mar 2010 18:45:09 -0000	1.16
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	18 Mar 2010 09:36:12 -0000	1.17
@@ -94,9 +94,9 @@
   }
   Class OrderedComposite::ChildManager -instproc init args {
     set r [next]
-    #set parent [self callingobject] ;# not a true calling object (ns-eval), but XOTcl 1 honors it
+    set parent [self callingobject] ;# not a true calling object (ns-eval), but XOTcl 1 honors it
     #set parent [my info parent] ;# is ok in XOTcl 2, since the namespace is honored correctly
-    set parent [uplevel 2 self] ;# should work everywhere
+    #set parent [uplevel 2 self] ;# should work everywhere
     #puts stderr "-- CONTAINS p=$parent, co=[self callingobject] n=[uplevel 2 self]"
     $parent lappend __children [self]
     my set __parent $parent