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.12 -r1.13
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	26 Jan 2008 00:58:59 -0000	1.12
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	6 May 2008 12:36:07 -0000	1.13
@@ -52,7 +52,14 @@
     #my log "-- adding __parent [self] to $obj -- calling after_insert"
     #$obj __after_insert
   }
-
+  OrderedComposite instproc delete obj {
+    my instvar __children
+    set p [lsearch -exact $__children $obj]
+    if {$p == -1} {error "can't delete '$obj' from $__children"}
+    set __children [lreplace $__children $p $p]
+    $obj destroy
+  }
+  
   OrderedComposite instproc last_child {} {
     lindex [my set __children] end
   }