Index: openacs-4/packages/contacts/lib/email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/email.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/contacts/lib/email.tcl	25 Apr 2018 19:47:46 -0000	1.41
+++ openacs-4/packages/contacts/lib/email.tcl	26 Apr 2018 08:56:38 -0000	1.42
@@ -28,7 +28,7 @@
 # Somehow when the form is submited the party_ids values became
 # only one element of a list, this avoid that problem
 
-set recipients [list]
+set recipients {}
 foreach party_id $party_ids {
     if {![empty_string_p $party_id]} {
 	lappend recipients [list "<a href=\"[contact::url -party_id $party_id]\">[contact::name -party_id $party_id]</a> ([contact::message::email_address -party_id $party_id])" $party_id]
@@ -247,7 +247,7 @@
 	set attribute_id [attribute::id -object_type "person" -attribute_name "salutation"]
 	    
 	# List to store know which emails received the message
-	set recipients_addr [list]
+	set recipients_addr {}
 
 	set from [ad_conn user_id]
 	set from_addr [contact::email -party_id $from]