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.6 -r1.7
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	17 Aug 2006 01:27:54 -0000	1.6
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	12 Dec 2006 09:32:15 -0000	1.7
@@ -53,6 +53,10 @@
     #$obj __after_insert
   }
 
+  OrderedComposite instproc last_child {} {
+    lindex [my set __children] end
+  }
+
   OrderedComposite instproc destroy {} {
     # destroy all children of the ordered composite
     if {[my exists __children]} {