Index: openacs-4/packages/acs-kernel/sql/oracle/groups-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/oracle/groups-body-create.sql,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-kernel/sql/oracle/groups-body-create.sql	12 Mar 2004 18:48:49 -0000	1.13
+++ openacs-4/packages/acs-kernel/sql/oracle/groups-body-create.sql	12 Jul 2004 14:49:48 -0000	1.14
@@ -799,15 +799,6 @@
   is
   begin
  
-   -- Delete all segments defined for this group
-   for row in (select segment_id 
-                 from rel_segments 
-                where group_id = acs_group.del.group_id) loop
-
-       rel_segment.del(row.segment_id);
-
-   end loop;
-
    -- Delete all the relations of any type to this group
    for row in (select r.rel_id, t.package_name
                  from acs_rels r, acs_object_types t
@@ -817,6 +808,15 @@
       execute immediate 'begin ' ||  row.package_name || '.del(' || row.rel_id || '); end;';
    end loop;
  
+   -- Delete all segments defined for this group
+   for row in (select segment_id 
+                 from rel_segments 
+                where group_id = acs_group.del.group_id) loop
+
+       rel_segment.del(row.segment_id);
+
+   end loop;
+
    party.del(group_id);
  end del;
 
