Index: openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl,v
diff -u -N -r1.32.2.1 -r1.32.2.2
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	29 Apr 2016 07:04:55 -0000	1.32.2.1
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	12 Jul 2016 18:31:24 -0000	1.32.2.2
@@ -317,7 +317,7 @@
     # match quotes
     set quote_count [regexp -all {\"} $query]
     # if quotes don't match, just remove all of them
-    if {[expr {$quote_count % 2}] == 1} {
+    if {$quote_count % 2 == 1} {
         regsub -all {\"} $query {} query
     }