Index: openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl,v
diff -u -r1.68.2.7 -r1.68.2.8
--- openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	5 Oct 2019 13:01:38 -0000	1.68.2.7
+++ openacs-4/packages/acs-subsite/tcl/subsite-procs.tcl	13 Dec 2019 14:17:42 -0000	1.68.2.8
@@ -153,7 +153,7 @@
 
             # Create segment of registered users
             set segment_name "$subsite_name_89 Members"
-            set segment_id [rel_segments_new $subsite_group_id membership_rel $segment_name]
+            set segment_id [rel_segment::new $subsite_group_id membership_rel $segment_name]
 
             # Create a constraint that says "to be a member of this subsite you must be a member
             # of the parent subsite.
@@ -172,7 +172,7 @@
 
             # Create segment of registered users for administrators
             set segment_name "$subsite_name_89 Administrators"
-            set admin_segment_id [rel_segments_new $subsite_group_id admin_rel $segment_name]
+            set admin_segment_id [rel_segment::new $subsite_group_id admin_rel $segment_name]
 
             # Grant admin privileges to the admin segment
             permission::grant \