Index: openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl	13 Apr 2005 02:41:53 -0000	1.2
+++ openacs-4/packages/tsearch2-driver/tcl/test/tsearch2-driver-procs.tcl	13 Nov 2006 01:10:33 -0000	1.3
@@ -43,6 +43,9 @@
                 [string equal "one & a & two" \
                      [tsearch2::build_query -query $q]]
 
-
+	    set q "or else"
+	    aa_true "Or at beginning by itself" \
+		[string equal "else" \
+		     [tsearch2::build_query -query $q]]
         }
 }