Index: openacs-4/packages/acs-subsite/www/admin/users/new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/users/new.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/acs-subsite/www/admin/users/new.tcl	27 Oct 2014 16:39:57 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/admin/users/new.tcl	9 Jun 2015 07:57:52 -0000	1.14
@@ -203,7 +203,7 @@
     foreach group_rel_type $group_rel_type_list {
 	lassign $group_rel_type next_group_id next_rel_type
 	lappend return_url_list \
-		"../relations/add?group_id=$next_group_id&rel_type=[ad_urlencode $next_rel_type]&party_id=$user_id&allow_out_of_scope_p=t"
+	    [export_vars -base "../relations/add" {{group_id $next_group_id} {rel_type $next_rel_type} {party_id $user_id} {allow_out_of_scope_p t}}]
     }
 
     # Add the original return_url as the last one in the list
@@ -212,7 +212,7 @@
     set return_url_stacked [subsite::util::return_url_stack $return_url_list]
 
     if {$return_url_stacked eq ""} {
-	set return_url_stacked "../parties/one?party_id=$user_id"
+	set return_url_stacked [export_vars -base ../parties/one {{party_id $user_id}}]
     }
     ad_returnredirect $return_url_stacked