Index: openacs-4/packages/contacts/tcl/contact-employee-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contact-employee-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	26 Apr 2018 08:56:38 -0000	1.7
+++ openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	9 May 2018 15:33:30 -0000	1.8
@@ -112,7 +112,7 @@
     set employee_rev_id [content::item::get_best_revision -item_id $employee_id]
 
     # Get employers, if any
-    set employers {}
+    set employers [list]
     set employers [contact::util::get_employers -employee_id $employee_id -package_id $package_id]
 
     # If employer(s) exist
@@ -244,7 +244,7 @@
     if {$phone == "" && [person::person_p -party_id $employee_id]} {
 
 	# Get employers, if any
-	set employers {}
+	set employers [list]
 	set employers [contact::util::get_employers -employee_id $employee_id -package_id $package_id]
 	
 	# If employer(s) exist
@@ -336,7 +336,7 @@
     get employees of an organization in a list of list suitable for inclusion in options
     the list is made up of employee_name and employee_id
 } {
-    set contact_list {}
+    set contact_list [list]
     db_foreach select_employee_ids {
 	select CASE WHEN object_id_one = :organization_id
                     THEN object_id_two
@@ -379,7 +379,7 @@
     @creation-date 2005-10-17
     @return List of lists, each containing the ID and name of an employer, or an empty list if no employers exist.
 } {
-    set contact_list {}
+    set contact_list [list]
     db_foreach select_employer_ids {
 	select CASE WHEN object_id_one = :employee_id
                     THEN object_id_two