Index: openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql	14 Mar 2001 04:39:10 -0000	1.1
+++ openacs-4/packages/acs-kernel/sql/postgresql/rel-segments-body-create.sql	17 Mar 2001 21:46:06 -0000	1.2
@@ -55,9 +55,10 @@
 begin
 
    -- remove all constraints on this segment
-   for row in (select constraint_id 
+   for row in  select constraint_id 
                  from rel_constraints 
-                where rel_segment = delete__segment_id) loop
+                where rel_segment = delete__segment_id 
+   LOOP
 
        PERFORM rel_constraint__delete(row.constraint_id);
 
