Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -N -r1.40 -r1.41
--- openacs-4/packages/contacts/lib/email.tcl	17 Apr 2018 14:47:02 -0000	1.40
+++ openacs-4/packages/contacts/lib/email.tcl	25 Apr 2018 19:47:46 -0000	1.41
@@ -122,7 +122,7 @@
 set tracking_p [apm_package_installed_p "mail-tracking"]
 
 if { [exists_and_not_null file_ids] } {
-    set files [list]
+    set files {}
     foreach file $file_ids {
 	set file_item_id [content::revision::item_id -revision_id $file] 
 	if {$file_item_id eq ""} {
@@ -157,7 +157,7 @@
     # because if we put something like this {value $value} the value
     # of the variable is not interpreted
 
-    set element [list]
+    set element {}
     lappend element "${var}:text(hidden)"
     lappend element "value $var_value"
     
@@ -302,7 +302,7 @@
 	    set username [db_string user "select username from users where user_id = :party_id" -default ""]
 	    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]]
 	    }