Index: openacs-4/packages/contacts/www/group-parties-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/www/group-parties-remove.tcl,v
diff -u -N -r1.10 -r1.11
--- openacs-4/packages/contacts/www/group-parties-remove.tcl	1 May 2006 19:58:41 -0000	1.10
+++ openacs-4/packages/contacts/www/group-parties-remove.tcl	8 Nov 2006 18:30:53 -0000	1.11
@@ -63,6 +63,10 @@
 		}
 	    }
 	}
+	if { $group_id == [contacts::default_group] } {
+	    # Also mark the user deleted
+	    acs_user::delete -user_id $party_id
+	}
 	ad_returnredirect $return_url
 	ad_script_abort
     } else {