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.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