Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Jul 2005 12:57:41 -0000	1.24
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	29 Jul 2005 02:17:39 -0000	1.25
@@ -70,6 +70,7 @@
 } {
     get employees of an organization
 } {
+    set contact_list {}
     db_foreach select_employee_ids {
 	select CASE WHEN object_id_one = :organization_id
                     THEN object_id_two