Index: openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	13 Jul 2020 12:02:33 -0000	1.5.2.1
+++ openacs-4/packages/acs-tcl/tcl/adp-parser-procs.tcl	1 Feb 2021 10:51:08 -0000	1.5.2.2
@@ -59,8 +59,8 @@
     Quotes special Tcl characters and newlines.
 
 } {
-    regsub -all {([\{\}\[\]\$\"\\])} $string {\\\1} string
-    regsub -all {\n} $string {\\n} string
+    regsub -all -- {([\{\}\[\]\$\"\\])} $string {\\\1} string
+    regsub -all -- {\n} $string {\\n} string
     return "\"$string\""
 }