Index: openacs-4/packages/contacts/www/relationship-bulk-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/relationship-bulk-add.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/contacts/www/relationship-bulk-add.tcl	12 May 2006 20:35:59 -0000	1.5
+++ openacs-4/packages/contacts/www/relationship-bulk-add.tcl	26 Apr 2018 08:56:38 -0000	1.6
@@ -15,15 +15,15 @@
 
 set title [_ contacts.Add_Relationship]
 set context [list $title]
-set names [list]
-set contact_type [list]
+set names {}
+set contact_type {}
 if { ![exists_and_not_null party_ids] } {
     set party_ids $party_id
 }
-set organizations [list]
-set organization_ids [list]
-set people [list]
-set person_ids [list]
+set organizations {}
+set organization_ids {}
+set people {}
+set person_ids {}
 foreach party $party_ids {
     contact::require_visiblity -party_id $party
     if { [contact::type -party_id $party] eq "organization" } {