Index: openacs-4/packages/acs-templating/tcl/doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/doc-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-templating/tcl/doc-procs.tcl	9 May 2018 15:33:29 -0000	1.11
+++ openacs-4/packages/acs-templating/tcl/doc-procs.tcl	3 Sep 2024 15:37:35 -0000	1.12
@@ -28,10 +28,10 @@
 } {
 
     # remove carriage returns if present
-    regsub -all {\r|\r\n} $code {\n} code
+    regsub -all -- {\r|\r\n} $code {\n} code
 
     # remove extra blank lines
-    regsub -all {(\n)\n} $code {\1} code
+    regsub -all -- {(\n)\n} $code {\1} code
 
     set lines [split $code "\n"]