Index: openacs-4/packages/acs-subsite/www/admin/relations/add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/relations/add.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	15 Jun 2015 11:14:18 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/admin/relations/add.tcl	27 Jun 2015 16:03:13 -0000	1.15
@@ -126,7 +126,7 @@
 set party_type_exact_p f
 set add_to_group_id $group_id
 set add_with_rel_type $rel_type
-set add_party_url "[ad_conn package_url]admin/parties/new?[export_vars {add_to_group_id add_with_rel_type party_type party_type_exact_p return_url}]"
+set add_party_url [export_vars -base [ad_conn package_url]admin/parties/new {add_to_group_id add_with_rel_type party_type party_type_exact_p return_url}]
 
 # Build a url used to select an existing party from the system (as opposed
 # to limiting the selection to parties on the current subsite).
@@ -163,7 +163,7 @@
 	ad_script_abort
     }
     if { $return_url eq "" } { 
-	set return_url one?[export_vars rel_id]
+	set return_url [export_vars -base one rel_id]
     }
     ad_returnredirect $return_url
     ad_script_abort