Index: openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl,v
diff -u -r1.79.2.62 -r1.79.2.63
--- openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 Sep 2022 11:32:59 -0000	1.79.2.62
+++ openacs-4/packages/acs-automated-testing/tcl/aa-test-procs.tcl	9 Sep 2022 13:13:53 -0000	1.79.2.63
@@ -1648,11 +1648,7 @@
     ad_proc -public ::acs::test::visualize_control_chars {lines} {
         Quotes and therefore makes visible control chars in input lines
     } {
-        set output $lines
-        regsub -all {\\} $output {\\\\} output
-        regsub -all {\r} $output {\\r} output
-        regsub -all {\n} $output "\\n\n" output
-        return $output
+        return [string map {\\ \\\\ \r \\r \n "\\n\n"} $lines]
     }
 
     ad_proc -public ::acs::test::dom_html {var html body} {