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.10 -r1.11
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	18 May 2007 09:01:22 -0000	1.10
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	31 May 2007 20:17:34 -0000	1.11
@@ -61,7 +61,9 @@
     # destroy all children of the ordered composite
     if {[my exists __children]} {
       #my log "--W destroying children [my set __children]"
-      foreach c [my set __children] { $c destroy }
+      foreach c [my set __children] { 
+	if {[my isobject $c]} {$c destroy}
+      }
     }
     #show_stack;my log "--W children murdered, now next, chlds=[my info children]"
     namespace eval [self] {namespace forget *}  ;# for pre 1.4.0 versions