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 -N -r1.23.2.16 -r1.23.2.17
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	7 Mar 2022 14:06:47 -0000	1.23.2.16
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	7 Mar 2022 16:00:36 -0000	1.23.2.17
@@ -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] {
@@ -132,8 +132,6 @@
         set is_current [expr {$open_page eq $name}]
         set is_open [expr {$is_current || $expand_all}]
         set c [::xowiki::TreeNode new \
-                   -orderby pos \
-                   -pos [incr pos] \
                    -level $level \
                    -object $o \
                    -owner [self] \