Index: openacs-4/packages/contacts/lib/groups.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/groups.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/contacts/lib/groups.tcl	31 Dec 2005 07:39:39 -0000	1.12
+++ openacs-4/packages/contacts/lib/groups.tcl	26 Jan 2006 07:23:32 -0000	1.13
@@ -63,14 +63,15 @@
 }
 
 set default_group [contacts::default_group]
+set user_p [contact::user_p -party_id $party_id]
+
 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 { [person::person_p -party_id $party_id] && [contact::email -party_id $party_id] != "" } {
+    if { [person::person_p -party_id $party_id] && [contact::email -party_id $party_id] != "" && $user_p != 1} {
         set upgrade_url [export_vars -base "/contacts/person-upgrade-to-user" -url {{person_id $party_id}}] 
     }
     set delete_p 1
 } else {
     set delete_p 0
 }
 
-set user_p [contact::user_p -party_id $party_id]
\ No newline at end of file