Index: openacs-4/packages/contacts/tcl/contact-search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/contacts/tcl/contact-search-procs.tcl	5 Apr 2018 14:44:09 -0000	1.40
+++ openacs-4/packages/contacts/tcl/contact-search-procs.tcl	25 Apr 2018 19:47:46 -0000	1.41
@@ -490,7 +490,7 @@
     @param and Set this flag if you want the result to start with an 'and' if the list of where clauses returned is non-empty.
 } {
     set query [string trim $query]
-    set search_clauses [list]
+    set search_clauses {}
     set where_clause [contact::search::where_clause -search_id $search_id -party_id $party_id -revision_id $revision_id -limit_type_p $limit_type_p]
 
     if { [exists_and_not_null where_clause] } {
@@ -549,7 +549,7 @@
     # query is a condition. We are limited to 3 levels of database access for most
     # openacs installs so this bypasses that problem
     set db_conditions [db_list_of_lists select_conditions {}]
-    set conditions [list]
+    set conditions {}
     foreach condition $db_conditions {
 	lappend conditions [contacts::search::condition_type \
 				-type [lindex $condition 0] \
@@ -596,7 +596,7 @@
     set query [string trim $query]
     regsub -all "'" $query "''" query
 
-    set query_clauses [list]
+    set query_clauses {}
     set callback_query_clauses [callback contact::search::query_clauses -query $query -party_id $party_id]
     if { [llength $callback_query_clauses] > 0 } {
 	# the callback returns a list of the lists from the callbacks
@@ -746,7 +746,7 @@
 } {
 } {
     db_0or1row get_search_info {}
-    set where_clauses [list]
+    set where_clauses {}
 
     if { [exists_and_not_null all_or_any] } {
 	set result {}