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.13 -r1.14
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	6 May 2008 12:36:07 -0000	1.13
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	14 Jan 2010 10:34:57 -0000	1.14
@@ -94,7 +94,8 @@
   }
   Class OrderedComposite::ChildManager -instproc init args {
     set r [next]
-    [self callingobject] lappend __children [self]
+    [my info parent] lappend __children [self]
+    #[self callingobject] lappend __children [self]
     my set __parent [self callingobject]
     #my __after_insert
     #my log "-- adding __parent  [self callingobject] to [self]"