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.13 -r1.23.2.14
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	4 Mar 2022 14:02:58 -0000	1.23.2.13
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	4 Mar 2022 14:33:32 -0000	1.23.2.14
@@ -127,14 +127,20 @@
         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 $page_order -level $level \
-                   -object $o -owner [self] \
-                   {*}$extra_flags \
-                   -label $title -prefix $page_number -href $href \
+        set c [::xowiki::TreeNode new \
+                   -orderby pos \
+                   -pos $page_order \
+                   -level $level \
+                   -object $o \
+                   -owner [self] \
+                   -label $title \
+                   -prefix $page_number \
+                   -href $href \
                    -highlight $is_current \
                    -expanded $is_open \
                    -open_requests 1 \
-                   -verbose ${:verbose}]
+                   -verbose ${:verbose} \
+                   {*}$extra_flags]
         set tree($level) $c
         for {set l [expr {$level - 1}]} {![info exists tree($l)]} {incr l -1} {}
         $tree($l) add $c