Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/contacts/lib/groups.tcl	6 Jul 2005 23:36:19 -0000	1.7
+++ openacs-4/packages/contacts/lib/groups.tcl	15 Jul 2005 21:01:52 -0000	1.8
@@ -62,8 +62,9 @@
     }
 }
 
-if { [permission::permission_p -object_id "-2" -privilege "delete"] } {
-    set remove_url [export_vars -base "/contacts/group-parties-remove" -url {{group_id "-2"} party_id {return_url {/contacts/}}}] 
+set default_group [contacts::default_group]
+if { [permission::permission_p -object_id $default_group -privilege "delete"] } {
+    set remove_url [export_vars -base "/contacts/group-parties-remove" -url {{group_id $default_group} party_id {return_url {/contacts/}}}] 
     if { [db_0or1row contact_is_person { select 1 from acs_objects where object_id = :party_id and object_type = 'person' }] } {
         set upgrade_url [export_vars -base "/contacts/person-upgrade-to-user" -url {{person_id $party_id}}] 
     }