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.27.2.12 -r1.27.2.13
--- openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	28 Jan 2022 22:44:17 -0000	1.27.2.12
+++ openacs-4/packages/xotcl-core/tcl/20-Ordered-Composite-procs.tcl	8 Mar 2022 08:55:46 -0000	1.27.2.13
@@ -224,15 +224,15 @@
     } else {
       set xh [string range $x 0 $xp]
       set yh [string range $y 0 $yp]
-      #puts "xh=$xh yh=$yh"
+      #:log "xh=$xh yh=$yh"
       if {$xh < $yh} {
         return -1
       } elseif {$xh > $yh} {
         return 1
       } else {
         incr xp
         incr yp
-        #puts "rest [string range $x $xp end] [string range $y $yp end]"
+        #:log "rest [string range $x $xp end] [string range $y $yp end]"
         return [:__value_compare [string range $x $xp end] [string range $y $yp end] $def]
       }
     }