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.12 -r1.23.2.13
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	8 Feb 2022 14:50:08 -0000	1.23.2.12
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	4 Mar 2022 14:02:58 -0000	1.23.2.13
@@ -127,7 +127,7 @@
         set href [$owner href $book_mode $name]
         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 \
+        set c [::xowiki::TreeNode new -orderby pos -pos $page_order -level $level \
                    -object $o -owner [self] \
                    {*}$extra_flags \
                    -label $title -prefix $page_number -href $href \