Index: openacs-4/packages/acs-subsite/www/register/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/user-new.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-subsite/www/register/user-new.tcl	10 Jan 2007 21:22:10 -0000	1.20
+++ openacs-4/packages/acs-subsite/www/register/user-new.tcl	17 Mar 2007 06:31:18 -0000	1.21
@@ -9,5 +9,5 @@
 
 set registration_url [parameter::get -parameter RegistrationRedirectUrl]
 if {$registration_url ne ""} {
-    ad_returnredirect $registration_url
+    ad_returnredirect [export_vars -base "$registration_url" -url {return_url email}]
 }
\ No newline at end of file