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 "" formtext
} elseif {"nearmiss" eq $errtype} {
- regsub -all ", " $erroptions "," erroptions
+ regsub -all -- ", " $erroptions "," erroptions
set options [split $erroptions ","]
set select_text "