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.27.2.4 -r1.27.2.5
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	23 Jul 2019 16:54:51 -0000	1.27.2.4
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	2 Feb 2020 20:48:47 -0000	1.27.2.5
@@ -75,6 +75,15 @@
     lindex ${:__children} end
   }
 
+  OrderedComposite instproc deep_copy {} {
+    set copy [:copy [::xotcl::Object new]]
+    $copy set __children {}
+    foreach c ${:__children} {
+      $copy add [$c copy [::xotcl::Object new]]
+    }
+    return $copy
+  }
+
   OrderedComposite instproc destroy {} {
     # destroy all children of the ordered composite
     if {[info exists :__children]} {