Index: openacs-4/packages/acs-tcl/tcl/json-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/json-procs.tcl,v
diff -u -r1.11.2.1 -r1.11.2.2
--- openacs-4/packages/acs-tcl/tcl/json-procs.tcl	13 Jul 2020 12:02:33 -0000	1.11.2.1
+++ openacs-4/packages/acs-tcl/tcl/json-procs.tcl	1 Feb 2021 10:51:09 -0000	1.11.2.2
@@ -371,10 +371,10 @@
                     set value "\"$value\""
                 }
                 # Cleanup linebreaks
-                regsub -all {\r\n} $value "\n" value
-                regsub -all {\r} $value "\n" value
+                regsub -all -- {\r\n} $value "\n" value
+                regsub -all -- {\r} $value "\n" value
                 # JSON requires new line characters be escaped
-                regsub -all {\n} $value "\\n" value
+                regsub -all -- {\n} $value "\\n" value
                 return $value
             }
          }