Index: openacs-4/packages/contacts/lib/werbemailing.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/werbemailing.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/contacts/lib/werbemailing.tcl	13 Dec 2006 13:17:52 -0000	1.4
+++ openacs-4/packages/contacts/lib/werbemailing.tcl	26 Apr 2018 08:56:38 -0000	1.5
@@ -79,7 +79,7 @@
 
 	template::multirow create messages revision_id to_addr to_party_id subject content_body
 
-	set file_revisions [list]
+	set file_revisions {}
 	
 	# We need to set the original date here
 	set orig_date $date
@@ -162,7 +162,7 @@
 		    set locale [lang::user::site_wide_locale -user_id $party_id]
 		}
 		
-		set values [list]
+		set values {}
 		foreach element [list first_names last_name name date salutation mailing_address directphone] {
 		    lappend values [list "{$element}" [set $element]]
 		}