Index: openacs-4/packages/contacts/www/bulk-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/bulk-update.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/www/bulk-update.tcl	15 Feb 2006 10:06:36 -0000	1.7
+++ openacs-4/packages/contacts/www/bulk-update.tcl	26 Apr 2018 08:56:38 -0000	1.8
@@ -22,7 +22,7 @@
 set user_id [ad_conn user_id]
 set context [list $title]
 set package_id [ad_conn package_id]
-set recipients [list]
+set recipients {}
 if { [exists_and_not_null party_id] } {
     foreach party_id $party_id {
         contact::require_visiblity -party_id $party_id
@@ -37,13 +37,13 @@
 set person_count [llength $person_ids]
 
 
-set people [list]
+set people {}
 foreach party_id $person_ids {
     lappend people "<a href=\"[contact::url -party_id $party_id]\">[person::name -person_id $party_id]</a>"
 }
 set people [join $people ", "]
 
-set organizations [list]
+set organizations {}
 foreach party_id $organization_ids {
     lappend organizations "<a href=\"[contact::url -party_id $party_id]\">[organizations::name -organization_id $party_id]</a>"
 }