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.16.2.2 -r1.16.2.3
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	13 Nov 2006 01:05:08 -0000	1.16.2.2
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	13 Nov 2006 04:01:57 -0000	1.16.2.3
@@ -258,7 +258,9 @@
     # or if there is )\w or \w( insert an & between them
     regsub {(\))([\(\w])} $query {\1\ & \2} query
     regsub {([\)\w])(\()} $query {\1\ & \2} query
-    
+    if {[regsub {!|\||\&} $query {}] eq ""} {
+	set query ""
+    }
     return $query
 }