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.36 -r1.37
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	10 Sep 2008 17:19:20 -0000	1.36
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	1 Dec 2009 09:24:13 -0000	1.37
@@ -713,9 +713,6 @@
     
     db_transaction {
         foreach rel_id $rel_id_list {
-	    # Remove it from the group_element_index
-	    db_dml delete "delete from group_element_index where rel_id = :rel_id"
-	    db_dml delete2 "delete from membership_rels where rel_id = :rel_id"
             relation_remove $rel_id
         }
     }