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.116 -r1.117
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	28 Jun 2007 00:05:02 -0000	1.116
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	30 Jun 2007 06:57:50 -0000	1.117
@@ -155,6 +155,12 @@
 	    set contacts_package_ids [apm_package_ids_from_key -package_key "contacts" -mounted]
 	}
 	
+	if {$contacts_package_ids eq ""} {
+	    # there is no contacts package mounted, so do not bother
+	    return
+	}
+
+	set default_groups [list]
 	foreach contact_package_id $contacts_package_ids {
 	    set default_group_id [contacts::default_group -package_id $contact_package_id]
 	    set contact_package($default_group_id) $contact_package_id