Index: openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl,v
diff -u -N -r1.20.2.2 -r1.20.2.3
--- openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	16 Nov 2019 16:03:41 -0000	1.20.2.2
+++ openacs-4/packages/acs-templating/tcl/doc-tcl-procs.tcl	1 Feb 2021 10:54:23 -0000	1.20.2.3
@@ -20,7 +20,7 @@
 
 ad_proc -private doc::util::dbl_colon_fix { text } {
 
-  regsub -all {::} $text {__} text
+  regsub -all -- {::} $text {__} text
   return $text
 }
 
@@ -172,25 +172,25 @@
     @return same text but with a space behind each quote; double quotes
     that are already trailed by a space are unaffected
 } {
-    regsub -all {"} $text {" } text
-    regsub -all {"  } $text {" } text
+    regsub -all -- {"} $text {" } text
+    regsub -all -- {"  } $text {" } text
     return $text
 }
 
 ad_proc -private doc::util::bracket_space {text} {
     puts a space after all closing curly brackets, does not
     add a space when brackets are already followed by a space
 } {
-    regsub -all {(\})} $text {\1 } text
-    regsub -all {(\})  } $text {\1 } text
+    regsub -all -- {(\})} $text {\1 } text
+    regsub -all -- {(\})  } $text {\1 } text
     return $text
 }
 
 ad_proc -private doc::util::escape_square_brackets {text} {
     escapes out all square brackets
 } {
-    regsub -all {(\[)} $text {\\\1} text
-    regsub -all {(\])} $text {\\\1} text
+    regsub -all -- {(\[)} $text {\\\1} text
+    regsub -all -- {(\])} $text {\\\1} text
     return $text
 }
 
@@ -210,7 +210,7 @@
     @return text
 } {
     regsub -all \" $text {\"} text
-    regsub -all {(\n)\s*#\s*} $text {\1 } text
+    regsub -all -- {(\n)\s*#\s*} $text {\1 } text
     regsub {(\A)\s*#\s*} $text {\1 } text
     return $text
 }