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.7.2.1 -r1.7.2.2
--- openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	16 May 2019 09:27:52 -0000	1.7.2.1
+++ openacs-4/packages/acs-subsite/tcl/rel-segments-procs.tcl	13 Dec 2019 14:17:42 -0000	1.7.2.2
@@ -8,7 +8,25 @@
 
 }
 
-ad_proc -public rel_segments_new {
+namespace eval rel_segment {}
+
+ad_proc -deprecated rel_segments_new args {
+    Creates a new relational segment
+
+    @author Michael Bryzek (mbryzek@arsdigita.com)
+    @creation-date 12/2000
+
+    @return The <code>segment_id</code> of the new segment
+
+    DEPRECATED: does not comply with OpenACS naming convention
+
+    @see rel_segment::new
+
+} {
+    return [rel_segment::new {*}$args]
+}
+
+ad_proc -public rel_segment::new {
     { -context_id "" }
     { -creation_user "" }
     { -creation_ip "" }
@@ -36,7 +54,7 @@
 
 }
 
-ad_proc -public rel_segments_delete {
+ad_proc -deprecated rel_segments_delete {
     segment_id
 } {
     Deletes the specified relational segment including all relational
@@ -45,7 +63,23 @@
     @author Michael Bryzek (mbryzek@arsdigita.com)
     @creation-date 1/12/2001
 
+    DEPRECATED: does not comply with OpenACS naming convention
+
+    @see rel_segment::delete
 } {
+    return [rel_segment::delete $segment_id]
+}
+
+ad_proc -public rel_segment::delete {
+    segment_id
+} {
+    Deletes the specified relational segment including all relational
+    constraints that depend on it.
+
+    @author Michael Bryzek (mbryzek@arsdigita.com)
+    @creation-date 1/12/2001
+
+} {
     # First delete dependent constraints.
     db_foreach select_dependent_constraints {
         select c.constraint_id