Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.63.2.6 -r1.63.2.7
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	3 Jul 2020 07:27:29 -0000	1.63.2.6
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	1 Feb 2021 10:54:23 -0000	1.63.2.7
@@ -1176,8 +1176,8 @@
     # %d-%m-%y  %d.%m.%y  %d/%m-%y  %d/%m/%y  %m/%d/%y  %y-%m-%d  %y.%m.%d  "%d-%m-%y"
 
     set format [lc_get "d_fmt"]
-    regsub -all -nocase {\"} $format {} format
-    regsub -all -nocase {\%} $format {} format
+    regsub -all -nocase -- {\"} $format {} format
+    regsub -all -nocase -- {\%} $format {} format
     set format [string tolower $format]
     # this format key must now be at max five characters, and contain one y, one m and one d
     # as well as two punction marks ( - . / )
@@ -1226,9 +1226,9 @@
     # we get the format they need to use
     set format [template::util::textdate_localized_format]
     set exp $format
-    regsub -all {(\-|\.|/)} $exp {(\1)} exp
-    regsub -all {dd|mm} $exp {([0-9]{1,2})} exp
-    regsub -all {yyyy} $exp {([0-9]{2,4})} exp
+    regsub -all -- {(\-|\.|/)} $exp {(\1)} exp
+    regsub -all -- {dd|mm} $exp {([0-9]{1,2})} exp
+    regsub -all -- {yyyy} $exp {([0-9]{2,4})} exp
 
     # results is what comes out in a regexp
     set results $format