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.6 -r1.7
--- openacs-4/packages/contacts/www/relationship-bulk-add.tcl	26 Apr 2018 08:56:38 -0000	1.6
+++ openacs-4/packages/contacts/www/relationship-bulk-add.tcl	9 May 2018 15:33:30 -0000	1.7
@@ -15,15 +15,15 @@
 
 set title [_ contacts.Add_Relationship]
 set context [list $title]
-set names {}
-set contact_type {}
+set names [list]
+set contact_type [list]
 if { ![exists_and_not_null party_ids] } {
     set party_ids $party_id
 }
-set organizations {}
-set organization_ids {}
-set people {}
-set person_ids {}
+set organizations [list]
+set organization_ids [list]
+set people [list]
+set person_ids [list]
 foreach party $party_ids {
     contact::require_visiblity -party_id $party
     if { [contact::type -party_id $party] eq "organization" } {