Index: openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.adp,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.adp	28 Nov 2018 13:23:32 -0000	1.11
+++ openacs-4/packages/acs-subsite/www/admin/groups/elements-by-rel-type.adp	28 Nov 2018 13:29:54 -0000	1.12
@@ -36,7 +36,7 @@
             </if>
             <li>Relational segment: 
               <if @rels.segment_id@ nil>
-                <em>#acs-subsite.none#</em> (<a href="../rel-segments/new?group_id=@group_id@&amp;rel_type=@rels.rel_type@&amp;return_url=@return_url_enc@">create segment</a>)
+                <em>#acs-subsite.none#</em> (<a href="@rels.create_rel_segment_url@">create segment</a>)
               </if>
               <else>
                 <a href="../rel-segments/one?segment_id=@rels.segment_id@">@rels.segment_name@</a>
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}]
 
 }