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.5 -r1.27.2.6
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	2 Feb 2020 20:48:47 -0000	1.27.2.5
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	26 Aug 2020 18:13:19 -0000	1.27.2.6
@@ -53,7 +53,7 @@
         }
       }
       set order [expr {[info exists :__order] ? ${:__order} : "increasing"}]
-      return [lsort -command [list my __compare] -$order ${:__children}]
+      return [lsort -command :__compare -$order ${:__children}]
     } else {
       return ${:__children}
     }