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 -r1.26 -r1.26.2.1
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	13 Mar 2009 18:57:19 -0000	1.26
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	15 Jun 2009 17:03:57 -0000	1.26.2.1
@@ -275,8 +275,8 @@
     regsub {(\w+?)\s*(!)} $query {\1 \& !} query
     # if there is )( then insert an & between them 
     # or if there is )\w or \w( insert an & between them
-    regsub {(\))([\(\w])} $query {\1\ & \2} query
-    regsub {([\)\w])(\()} $query {\1\ & \2} query
+    regsub {(\))([\(\w])} $query {\1 \& \2} query
+    regsub {([\)\w])(\()} $query {\1 \& \2} query
     if {[regsub {!|\||\&} $query {}] eq ""} {
         set query ""
     }