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.31 -r1.32 --- openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl 27 Apr 2015 15:28:20 -0000 1.31 +++ openacs-4/packages/tsearch2-driver/tcl/tsearch2-driver-procs.tcl 29 Jun 2015 18:46:49 -0000 1.32 @@ -151,11 +151,11 @@ set base_query [db_map base_query] if {$df ne ""} { set need_acs_objects 1 - lappend where_clauses " and o.creation_date > :df" + lappend where_clauses "o.creation_date > :df" } if {$dt ne ""} { set need_acs_objects 1 - lappend where_clauses " and o.creation_date < :dt" + lappend where_clauses "o.creation_date < :dt" } foreach {arg value} $extra_args { @@ -164,7 +164,7 @@ lappend from_clauses $arg_clauses(from_clause) } if {[info exists arg_clauses(where_clause)] && $arg_clauses(where_clause) ne ""} { - lappend where_clauses "$arg_clauses(where_clause)" + lappend where_clauses $arg_clauses(where_clause) } } if {[llength $extra_args]} {