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 -N -r1.5 -r1.6
--- openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	6 Nov 2006 18:08:21 -0000	1.5
+++ openacs-4/packages/contacts/tcl/contact-employee-procs.tcl	25 Apr 2018 19:47:46 -0000	1.6
@@ -112,7 +112,7 @@
     set employee_rev_id [content::item::get_best_revision -item_id $employee_id]
 
     # Get employers, if any
-    set employers [list]
+    set employers {}
     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 [list]
+    set contact_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 [list]
+    set contact_list {}
     db_foreach select_employer_ids {
 	select CASE WHEN object_id_one = :employee_id
                     THEN object_id_two