Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	7 Jun 2018 17:41:01 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/delete-2.tcl	13 Dec 2019 14:17:42 -0000	1.7.2.1
@@ -33,7 +33,7 @@
 
     # Delete all the constraints that require this segment
     db_transaction {
-        rel_segments_delete $segment_id
+        rel_segment::delete $segment_id
     }
 }