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.27.2.8 -r1.27.2.9
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	6 Dec 2020 08:37:05 -0000	1.27.2.8
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	1 Sep 2021 08:14:26 -0000	1.27.2.9
@@ -77,9 +77,11 @@
 
   OrderedComposite instproc deep_copy {} {
     set copy [:copy [::xotcl::Object new]]
-    $copy set __children {}
-    foreach c ${:__children} {
-      $copy add [$c copy [::xotcl::Object new]]
+    if {[info exists :__children]} {
+      $copy set __children {}
+      foreach c ${:__children} {
+        $copy add [$c copy [::xotcl::Object new]]
+      }
     }
     return $copy
   }