Index: openacs-4/packages/contacts/lib/letter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/letter.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/contacts/lib/letter.tcl	26 Apr 2018 08:56:38 -0000	1.14
+++ openacs-4/packages/contacts/lib/letter.tcl	9 May 2018 15:33:30 -0000	1.15
@@ -132,7 +132,7 @@
 	    set content_html "${content_html}\n\n${footer}"
 	}
 
-	set messages {}
+	set messages [list]
 	set date [join [template::util::date::get_property linear_date_no_time $date] "-"]
 
 	if { $include_address eq "1" } {
@@ -175,7 +175,7 @@
 		append letter "\n<div class=\"mailing-address\">$name<br />[contact::message::mailing_address -party_id $party_id -format "text/html"]</div>"
 	    }
 	    append letter "\n<div class=\"content\">${content_html}</div>"
-	    set values {}
+	    set values [list]
 	    foreach element [list first_names last_name name date salutation mailing_address directphone] {
 		lappend values [list "{$element}" [set $element]]
 	    }