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} }