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 -N -r1.15 -r1.16
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	14 Jan 2010 11:34:07 -0000	1.15
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	5 Mar 2010 18:45:09 -0000	1.16
@@ -96,8 +96,8 @@
     set r [next]
     #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 1 {namespace current}]
-    #ns_log notice "-- CONTAINS r=$r p=$parent, ns=[uplevel 1 {namespace current}]"
+    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
     #my __after_insert