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 -r1.284.2.216 -r1.284.2.217
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	14 Apr 2022 10:04:10 -0000	1.284.2.216
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	5 May 2022 07:11:40 -0000	1.284.2.217
@@ -1166,7 +1166,7 @@
               # We need here probably more escapes, or we should be more
               # restrictive on allowed content in the "contains" clause.
               #
-              set word [string map {* \\*} $word]
+              set word [string map {* \\* ( \\( ) \\)} $word]
               set nrSubst [regsub -all {*}$nocase -- [ns_quotehtml $word] \
                                $annotated_value \
                                "<span class='match-$CSSclass'>&</span>" \