Index: openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	17 May 2003 09:58:37 -0000	1.2
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	30 Sep 2003 12:10:03 -0000	1.3
@@ -66,12 +66,12 @@
 	 where c.required_rel_segment = :segment_id
     } {
 	db_exec_plsql constraint_delete {
-	    begin rel_constraint.delete(:constraint_id); end;
+	    begin rel_constraint.del(:constraint_id); end;
 	}
     }
 
     db_exec_plsql rel_segment_delete {
-	begin rel_segment.delete(:segment_id); end;
+	begin rel_segment.del(:segment_id); end;
     }
     
 }