Index: openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl,v
diff -u -r1.28.2.4 -r1.28.2.5
--- openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	17 Jun 2019 10:15:36 -0000	1.28.2.4
+++ openacs-4/packages/acs-templating/tcl/spellcheck-procs.tcl	1 Feb 2021 10:54:23 -0000	1.28.2.5
@@ -184,7 +184,7 @@
 
     # if HTML then substitute out all HTML tags
     if { $html_p } {
-        regsub -all {<[^<]*>} $text_to_spell_check "" text_to_spell_check
+        regsub -all -- {<[^<]*>} $text_to_spell_check "" text_to_spell_check
     }
 
     set tmpfile [ns_mktemp "[ad_tmpdir]/webspellXXXXXX"]
@@ -318,7 +318,7 @@
         if {"miss" eq $errtype} {
             regsub "\#$errnum\#" $formtext "<input type=\"text\" name=\"${var_to_spellcheck}.error_$errnum\" value=\"$errword\" size=\"$wordlen\" >" formtext
         } elseif {"nearmiss" eq $errtype} {
-            regsub -all ", " $erroptions "," erroptions
+            regsub -all -- ", " $erroptions "," erroptions
             set options [split $erroptions ","]
             set select_text "<select name=\"${var_to_spellcheck}.error_$errnum\">\n<option value=\"$errword\">$errword</option>\n"
             foreach option $options {
@@ -334,15 +334,15 @@
     ####
     upvar $formtext_to_display_ref formtext_to_display
 
-    regsub -all "\r\n" $formtext "<br>" formtext_to_display
+    regsub -all -- "\r\n" $formtext "<br>" formtext_to_display
 
     # We replace <a></a> with  <u></u> because misspelled text in link titles
     # would lead to strange browser behavior where the select boxes with the
     # proposed changes would itself be a link!!!
     # It seemed like an okay idea to make the text underlined so it would a) work,
     # b) still resemble a link ...
-    regsub -all {<a [^<]*>} $formtext_to_display "<u>" formtext_to_display
-    regsub -all {</a>} $formtext_to_display "</u>" formtext_to_display
+    regsub -all -- {<a [^<]*>} $formtext_to_display "<u>" formtext_to_display
+    regsub -all -- {</a>} $formtext_to_display "</u>" formtext_to_display
 
     append formtext_to_display "<input type=\"hidden\" name=\"${var_to_spellcheck}.merge_text\" value=\"[ns_quotehtml $processed_text]\" >"