Index: openacs-4/packages/acs-subsite/lib/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-new.tcl,v
diff -u -r1.10.2.3 -r1.10.2.4
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	21 Jun 2005 14:54:39 -0000	1.10.2.3
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	1 Jul 2005 04:40:29 -0000	1.10.2.4
@@ -47,7 +47,8 @@
 set url [callback -catch -impl "$implName" user::registration]
 
 if { ![empty_string_p $url] } {
-    ad_returnredirect "$url"
+    ad_returnredirect [export_vars -base $url { return_url }]
+    ad_script_abort
 }