Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.284.2.93 -r1.284.2.94
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Mar 2020 17:00:30 -0000	1.284.2.93
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	25 Mar 2020 16:52:28 -0000	1.284.2.94
@@ -840,7 +840,7 @@
             # We need here probably more escapes, or we should be more
             # restrictive on allowed content in the "contains" clause.
             #
-            regsub -all * $word "\\*" word
+            set word [string map {* \\*} $word]
             regsub -all [ns_quotehtml $word] \
                 $annotated_value \
                 {<span class='match'>&</span>} \