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.7.2.4 -r1.7.2.5
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	16 Dec 2004 18:41:02 -0000	1.7.2.4
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	16 Dec 2004 19:34:28 -0000	1.7.2.5
@@ -198,7 +198,7 @@
     # remove any spaces between words and operators
     regsub -all {\s+([!&|])\s+} $query {\1} query
     # all remaining spaces between words turn into |
-    regsub -all {\s+} $query {|} query
+    regsub -all {\s+} $query {&} query
     # if a ! is by itself then prepend &
     regsub {(\w)([!])} $query {\1\&!} query
     return $query