Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/acs-subsite/lib/login.tcl	7 Oct 2003 13:00:45 -0000	1.15
+++ openacs-4/packages/acs-subsite/lib/login.tcl	16 Oct 2003 21:09:45 -0000	1.16
@@ -66,7 +66,7 @@
 
 set forgotten_pwd_url [auth::password::get_forgotten_url -authority_id $authority_id -username $username -email $email]
 
-set register_url "[subsite::get_element -element url]register/user-new"
+set register_url [export_vars -base "[subsite::get_element -element url]register/user-new" { return_url }]
 if { [string equal $authority_id [auth::get_register_authority]] || [auth::UseEmailForLoginP] } {
     set register_url [export_vars -no_empty -base $register_url { username email }]
 }