Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl	28 Nov 2018 13:19:56 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.tcl	28 Nov 2018 13:29:54 -0000	1.10
@@ -31,7 +31,11 @@
 set return_url "[ad_conn url]?[ad_conn query]"
 set return_url_enc [ad_urlencode $return_url]
 
-db_multirow -extend {elements_display_url relations_add_url} rels relations_query {
+db_multirow -extend {
+    elements_display_url
+    relations_add_url
+    create_rel_segment_url
+} rels relations_query {
     select
         g.group_id,
         g.rel_type,
@@ -72,8 +76,9 @@
     set role_pretty_name [lang::util::localize $role_pretty_name]
     set role_pretty_plural [lang::util::localize $role_pretty_plural]    
 
+    set create_rel_segment_url [export_vars -base "../rel-segments/new" {group_id rel_type return_url}]
     set elements_display_url [export_vars -base "elements-display" {group_id rel_type}]
-    set relations_add_url [export_vars -base "../relations/add" {group_id rel_type {return_url $return_url}}]
+    set relations_add_url [export_vars -base "../relations/add" {group_id rel_type return_url}]
 
 }