Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u -r1.12.2.9 -r1.12.2.10
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	19 Jul 2019 15:42:57 -0000	1.12.2.9
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	13 Dec 2019 14:17:42 -0000	1.12.2.10
@@ -12,7 +12,7 @@
         group::delete
         group::new
         permission::grant
-        rel_segments_new
+        rel_segment::new
         relation_add
     } \
     acs_subsite_expose_bug_775 {
@@ -25,7 +25,7 @@
         -test_code {
 
         set group_id [group::new -group_name group_775]
-        set rel_id [rel_segments_new $group_id membership_rel segment_775]
+        set rel_id [rel_segment::new $group_id membership_rel segment_775]
         relation_add membership_rel $group_id 0
         permission::grant -object_id $group_id -party_id 0 -privilege read