Index: openacs-4/packages/contacts/lib/email-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email-search.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/contacts/lib/email-search.tcl	25 Apr 2018 19:47:46 -0000	1.8
+++ openacs-4/packages/contacts/lib/email-search.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -366,7 +366,7 @@
 
 		set date [lc_time_fmt [dt_sysdate] "%q"]
 		
-		set values [list]
+		set values {}
 		foreach element [list first_names last_name salutation name date username] {
 		    lappend values [list "{$element}" [set $element]]
 		}