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.3 -r1.4
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	15 Dec 2005 12:16:34 -0000	1.3
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	30 Dec 2005 00:04:44 -0000	1.4
@@ -55,7 +55,10 @@
 
   OrderedComposite instproc destroy {} {
     # destroy all children of the ordered composite
-    foreach c [my set __children] { $c destroy }
+    if {[my exists __children]} {
+      #my log "-- destroying children [my set __children]"
+      foreach c [my set __children] { $c destroy }
+    }
     next
   }