Index: openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl,v
diff -u -r1.4 -r1.4.2.1
--- openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl	7 Aug 2017 23:48:00 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/stack-trace-procs.tcl	1 Feb 2021 10:51:09 -0000	1.4.2.1
@@ -31,7 +31,7 @@
             if {[string length $call] > 160} {
                 set call "[string range $call 0 150]..."
             }
-            regsub -all {\n} $call {\\n} call
+            regsub -all -- {\n} $call {\\n} call
             lappend callStack "   $call"
             if {$i > 1} {
                 lappend callStack "invoked from within"