Index: openacs-4/packages/dotlrn/tcl/spam-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/spam-procs.tcl,v
diff -u -r1.13 -r1.13.2.1
--- openacs-4/packages/dotlrn/tcl/spam-procs.tcl	9 May 2018 15:33:30 -0000	1.13
+++ openacs-4/packages/dotlrn/tcl/spam-procs.tcl	1 Feb 2021 11:04:09 -0000	1.13.2.1
@@ -41,7 +41,7 @@
         @return the interpolated string
     } {
         foreach tuple $values {
-            regsub -all [lindex $tuple 0] $text [lindex $tuple 1] text
+            regsub -all -- [lindex $tuple 0] $text [lindex $tuple 1] text
         }
 
         return $text