Index: openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl,v
diff -u -r1.4.2.6 -r1.4.2.7
--- openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	15 Jul 2020 19:45:18 -0000	1.4.2.6
+++ openacs-4/packages/xotcl-request-monitor/www/long-calls.tcl	1 Feb 2021 10:47:36 -0000	1.4.2.7
@@ -24,7 +24,7 @@
 }
 proc ::xo::regsub_eval {re string cmd {prefix ""}} {
     set map { \" \\\" \[ \\[ \] \\] \$ \\$ \\ \\\\}
-    return [uplevel [list subst [regsub -all $re [string map $map $string] "\[$cmd\]"]]]
+    return [uplevel [list subst [regsub -all -- $re [string map $map $string] "\[$cmd\]"]]]
 }
 proc ::xo::subst_user_link {prefix uid} {
     return $prefix[::xo::userid_link $uid]