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.60 -r1.61
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	20 Feb 2006 09:13:58 -0000	1.60
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	20 Feb 2006 18:30:51 -0000	1.61
@@ -38,7 +38,11 @@
         set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
         set package_id [db_string get_parent_subsite_id {}]
     }
-    return [application_group::group_id_from_package_id -no_complain -package_id $package_id]
+
+    set group_id [application_group::group_id_from_package_id -no_complain -package_id $package_id]
+    if {[string eq "" $group_id]} {
+	set group_id "-2"
+    }
 }