Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl,v
diff -u -r1.9.2.1 -r1.9.2.2
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl	16 May 2019 09:54:29 -0000	1.9.2.1
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-3.tcl	13 Dec 2019 14:17:42 -0000	1.9.2.2
@@ -34,7 +34,7 @@
 permission::require_permission -object_id $group_id -privilege "read"
 
 db_transaction {
-    set segment_id [rel_segments_new -context_id $group_id $group_id $rel_type $segment_name]
+    set segment_id [rel_segment::new -context_id $group_id $group_id $rel_type $segment_name]
 } on_error {
     # Let's see if this segment already exists
     set segment_id [db_string select_segment_id {