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 -r1.1.1.1 -r1.1.1.1.4.1
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	13 Mar 2001 22:59:26 -0000	1.1.1.1
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	17 Mar 2003 02:26:21 -0000	1.1.1.1.4.1
@@ -66,7 +66,7 @@
 	 where c.required_rel_segment = :segment_id
     } {
 	db_exec_plsql constraint_delete {
-	    begin rel_segment.delete(:constraint_id); end;
+	    begin rel_constraint.delete(:constraint_id); end;
 	}
     }