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.6 -r1.7
--- openacs-4/packages/acs-subsite/tcl/group-procs.tcl	21 Sep 2003 19:31:35 -0000	1.6
+++ openacs-4/packages/acs-subsite/tcl/group-procs.tcl	30 Sep 2003 12:10:03 -0000	1.7
@@ -159,12 +159,12 @@
                          where segs.segment_id = cons.required_rel_segment
                            and segs.group_id = :group_id) loop
 
-                rel_segment.delete(row.constraint_id);
+                rel_segment.del(row.constraint_id);
 
             end loop;
 
 	    -- delete the actual group
-	    ${package_name}.delete(:group_id); 
+	    ${package_name}.del(:group_id); 
 	  END;
         "