Index: openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl,v
diff -u -r1.4.2.5 -r1.4.2.6
--- openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	20 Aug 2020 05:22:28 -0000	1.4.2.5
+++ openacs-4/packages/acs-tcl/tcl/tcltrace-procs.tcl	1 Feb 2021 10:51:09 -0000	1.4.2.6
@@ -66,7 +66,7 @@
 	if {$severity in $::__log_severities} {
 	    # we do not want i18n raw strings substituted via ds_comment.
 	    # Maybe we should add this substitution there....
-	    regsub -all {\#([a-zA-Z0-9._-]+)\#} $msg {\#\1\#} msg
+	    regsub -all -- {\#([a-zA-Z0-9._-]+)\#} $msg {\#\1\#} msg
 	    catch {ds_comment "$cmdname $severity $msg"}
 	} else {
 	    #catch {ds_comment "ignore $severity $msg"}