Index: openacs-4/packages/xowiki/tcl/tree-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/tree-procs.tcl,v
diff -u -r1.23.2.17 -r1.23.2.18
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	7 Mar 2022 16:00:36 -0000	1.23.2.17
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	24 Mar 2022 08:06:49 -0000	1.23.2.18
@@ -58,11 +58,11 @@
     if {![nsf::is object $items]} {
       ::xo::OrderedComposite create $items
       if {[info exists orderby]} {
-        if {$orderby eq "page_order"} {
-          $items mixin add ::xo::OrderedComposite::IndexCompare
-        }
         set direction [expr {$increasing ? "increasing" : "decreasing"}]
-        $items orderby -order $direction $orderby
+        $items orderby \
+            -order $direction \
+            -type [ad_decode $orderby page_order index dictionary] \
+            $orderby
       }
     }
     $items add $itemobj
@@ -113,7 +113,7 @@
     set pos 0
     if {${:verbose}} {
       :log "add_pages want to add [llength [$pages children]] pages"
-    }   
+    }
     set ul_class [expr {[dict exists $properties CSSclass_ul] ?
                         [dict get $properties CSSclass_ul] : ""}]
     foreach o [$pages children] {