Index: openacs-4/packages/contacts/lib/label.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/label.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/contacts/lib/label.tcl	5 Oct 2006 14:15:20 -0000	1.3
+++ openacs-4/packages/contacts/lib/label.tcl	25 Apr 2018 19:47:46 -0000	1.4
@@ -51,7 +51,7 @@
 	-message_1 [_ contacts.lt_Generating_the_labels_] \
 	-message_2 [_ contacts.lt_Once_finished_you_get]
     
-    set labels [list]
+    set labels {}
     foreach party_id $party_ids {
 
 	set mailing_address [contact::message::mailing_address -party_id $party_id -format "text/plain" -with_name]