Index: openacs-4/packages/acs-subsite/tcl/group-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	10 Nov 2003 12:35:39 -0000	1.16
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	11 Dec 2003 21:39:55 -0000	1.17
@@ -426,7 +426,6 @@
 } {
     Adds a user to a group, checking that the rel_type is permissible given the user's privileges, 
     Can default both the rel_type and the member_state to their relevant values.
-    Deletes any existing relation of the same rel_type between the same group and the same user.
 } {       
     set admin_p [permission::permission_p -object_id $group_id -privilege "admin"]
     
@@ -449,11 +448,6 @@
                               -join_policy $group(join_policy) \
                               -create_p $create_p]
     }
-
-    set existing_rel_id [relation::get_id -object_id_one $group_id -object_id_two $user_id -rel_type $rel_type]
-    if { ![empty_string_p $existing_rel_id] } {
-        relation_remove $existing_rel_id
-    }
     
     relation_add -member_state $member_state $rel_type $group_id $user_id
 }