Index: openacs-4/packages/mail-tracking/www/one-message.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/mail-tracking/www/one-message.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/mail-tracking/www/one-message.tcl	26 Apr 2018 08:56:38 -0000	1.12
+++ openacs-4/packages/mail-tracking/www/one-message.tcl	9 May 2018 15:33:32 -0000	1.13
@@ -19,7 +19,7 @@
 # We need to figure out a way to detect which contacts package a party_id belongs to
 
 set page_title "[_ mail-tracking.One_message]"
-set context {}
+set context [list]
 set sender ""
 set receiver ""
 
@@ -45,7 +45,7 @@
     set sender "Unknown"
 }
 
-set reciever_list {}
+set reciever_list [list]
 db_foreach reciever_id {select recipient_id from acs_mail_log_recipient_map where type ='to' and log_id = :log_id and recipient_id is not null} {
     if {$contacts_package_id} {
 	lappend reciever_list "<a href=\"[contact::url -party_id $recipient_id  -package_id $contacts_package_id]\">[party::name -party_id $recipient_id]</a>"
@@ -59,7 +59,7 @@
 set recipient [join $reciever_list ","]
 
 # Now the CC users
-set reciever_list {}
+set reciever_list [list]
 db_foreach reciever_id {select recipient_id from acs_mail_log_recipient_map where type ='cc' and log_id = :log_id and recipient_id is not null} {
     if {$contacts_package_id} {
 	lappend reciever_list "<a href=\"[contact::url -party_id $recipient_id  -package_id $contacts_package_id]\">[party::name -party_id $recipient_id]</a>"
@@ -73,7 +73,7 @@
 set cc_string [join $reciever_list ","]
 
 # And the BCC ones
-set reciever_list {}
+set reciever_list [list]
 db_foreach reciever_id {select recipient_id from acs_mail_log_recipient_map where type ='bcc' and log_id = :log_id and recipient_id is not null} {
     if {$contacts_package_id} {
 	lappend reciever_list "<a href=\"[contact::url -party_id $recipient_id  -package_id $contacts_package_id]\">[party::name -party_id $recipient_id]</a>"
@@ -88,7 +88,7 @@
 
 # We get the related files
 set tracking_url [apm_package_url_from_key "mail-tracking"]
-set download_files {}
+set download_files [list]
 set files [db_list files {}]
 foreach file_id $files {
     set title [content::item::get_title -item_id $file_id]