Index: openacs-4/packages/contacts/lib/oo_mailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/oo_mailing.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/contacts/lib/oo_mailing.tcl	26 Apr 2018 08:56:38 -0000	1.21
+++ openacs-4/packages/contacts/lib/oo_mailing.tcl	9 May 2018 15:33:30 -0000	1.22
@@ -196,7 +196,7 @@
 	set num_of_users [llength $party_ids]
 	set seconds_to_finish [expr $num_of_users * $seconds_per_user]
 	set package_id [ad_conn package_id]
-	set pdf_filenames {}
+	set pdf_filenames [list]
 	
 	set from [ad_conn user_id]
 	set from_addr [contact::email -party_id $from]
@@ -297,7 +297,7 @@
 		}
 
 		set to_addr [contact::message::email_address -party_id $party_id]		
-		set values {}
+		set values [list]
 		foreach element [list first_names last_name name date salutation mailing_address directphone] {
 		    lappend values [list "{$element}" [set $element]]
 		}