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.61 -r1.62
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	20 Feb 2006 18:30:51 -0000	1.61
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	20 Feb 2006 20:49:28 -0000	1.62
@@ -41,8 +41,10 @@
 
     set group_id [application_group::group_id_from_package_id -no_complain -package_id $package_id]
     if {[string eq "" $group_id]} {
+        # application_group should not be empty unless contacts
 	set group_id "-2"
     }
+    return $group_id
 }