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.16 -r1.16.2.1
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	13 Apr 2005 02:41:53 -0000	1.16
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	3 Jan 2006 14:49:55 -0000	1.16.2.1
@@ -248,7 +248,7 @@
     # remove any spaces between words and operators
     # all remaining spaces between words turn into &
     while {[regexp {([-/@.\d\w\(\)])\s+?([-/@.\d\w\(\)])} $query]} {
-        regsub {([-/@.\d\w\(\)])\s+?([-/@.\d\w\(\)])} $query {\1\&\2} query
+        regsub {([-/@.\d\w\(\)])\s+?([-/@.\d\w\(\)])} $query {\1 \& \2} query
     }
     # if a ! is by itself then prepend &
     regsub {(\w+?)\s*(!)} $query {\1 \& !} query
@@ -373,4 +373,4 @@
     @error 
 } {
     return {title description package_id parent_id}
-}
\ No newline at end of file
+}