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.35 -r1.36
--- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	1 Mar 2018 08:32:03 -0000	1.35
+++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl	8 May 2018 22:39:45 -0000	1.36
@@ -376,8 +376,7 @@
 
         if {[llength $e] > 1} {
             # query element contains a valid operator
-            set last_operator [lindex $e 0]
-            set e [lindex $e 1]
+            lassign $e last_operator e
         } else {
             set last_operator ""
         }