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.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	6 Jan 2007 03:29:18 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	18 May 2007 09:01:22 -0000	1.10
@@ -135,5 +135,19 @@
       }
     }
   }
+
+  Class OrderedComposite::MethodCompare
+  OrderedComposite::MethodCompare instproc __compare {a b} {
+    set by [my set __orderby]
+    set x [$a $by]
+    set y [$b $by]
+    if {$x < $y} {
+      return -1
+    } elseif {$x > $y} {
+      return 1
+    } else {
+      return 0
+    }
+  }
 }