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.8 -r1.23.2.9
--- openacs-4/packages/xowiki/tcl/tree-procs.tcl	18 Jan 2021 14:01:38 -0000	1.23.2.8
+++ openacs-4/packages/xowiki/tcl/tree-procs.tcl	1 Feb 2021 10:41:29 -0000	1.23.2.9
@@ -103,7 +103,7 @@
       if {![regexp {^(.*)[.]([^.]+)} $page_order _ parent]} {set parent ""}
       set page_number [$owner page_number $page_order $remove_levels]
 
-      set level [regsub -all {[.]} [$o set page_order] _ page_order_js]
+      set level [regsub -all -- {[.]} [$o set page_order] _ page_order_js]
       if {${:verbose}} {:log "... work on [$o set page_order] level $level full $full"}
       if {$full || [info exists :open_node($parent)] || [info exists :open_node($page_order)]} {
         set href [$owner href $book_mode $name]