Index: openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl	17 Apr 2018 14:47:02 -0000	1.6
+++ openacs-4/packages/contacts/tcl/contact-search-widget-procs.tcl	25 Apr 2018 19:47:46 -0000	1.7
@@ -154,8 +154,8 @@
 	    error "You cannot use the contact_search widget without specifying a package_id of a contacts instance in which to search (done the same way you would specifiy html attributes)"
 	}
     }
-    set person_ids [list]
-    set organization_ids [list]
+    set person_ids {}
+    set organization_ids {}
 
     # search in persons
     if { $persons_p } {
@@ -175,7 +175,7 @@
     } else {
         # we need to return a select list
 
-        set options [list]
+        set options {}
         if { [llength $person_ids] > 0 } {
 	    if { [llength $person_ids] > 50 } {
 		set options [list [list [_ contacts.lt_Search_again_over_50_people] ":search:"]]