Index: openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	7 Aug 2017 23:47:58 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/admin/rel-segments/new-2.tcl	14 Jun 2018 15:50:18 -0000	1.8
@@ -41,14 +41,18 @@
 
 set export_vars [export_vars -form {group_id rel_type return_url}]
 
-db_1row select_basic_info {}
+set role_pretty_plural [db_string get_pretty_plural {
+    select coalesce(pretty_plural, 'Elements') from acs_rel_roles
+    where role = (select role_two from acs_rel_types where rel_type = :rel_type)}]
 
+set group_name [group::get_element \
+                    -group_id $group_id \
+                    -element group_name]
+
 # The role pretty names can be message catalog keys that need
 # to be localized before they are displayed
-set role_pretty_plural [lang::util::localize $role_pretty_plural]    
+set role_pretty_plural [lang::util::localize $role_pretty_plural]
 
-ad_return_template
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4