Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.239.2.61 -r1.239.2.62
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	24 Jan 2021 19:54:56 -0000	1.239.2.61
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	1 Feb 2021 10:41:29 -0000	1.239.2.62
@@ -129,7 +129,7 @@
     }
 
     # replace unwanted characters
-    regsub -all {[^A-Za-z0-9_.-]} $name _ name
+    regsub -all -- {[^A-Za-z0-9_.-]} $name _ name
     return $name
   }
 
@@ -2942,7 +2942,7 @@
 
     foreach o [$pages children] {
       $o instvar page_order page_id
-      set level [expr {[regsub -all {[.]} $page_order _ page_order_js] + 1}]
+      set level [expr {[regsub -all -- {[.]} $page_order _ page_order_js] + 1}]
 
       if {$allow_reorder ne ""} {
         #
@@ -2960,7 +2960,7 @@
         if {$last_level != $level} {
           for {set l $last_level} {$l > $level} {incr l -1} {append output "</ul>\n" }
           for {set l $last_level} {$l < $level} {incr l} {
-            regsub -all {[.]} $prefix _ prefix_js
+            regsub -all -- {[.]} $prefix _ prefix_js
             append output [:page_reorder_open_ul -min_level $min_level -ID $ID -prefix_js $prefix_js $l]
           }
           set last_level $level