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.13 -r1.14
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	15 Jun 2005 18:02:26 -0000	1.13
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	4 Jun 2006 00:45:41 -0000	1.14
@@ -37,18 +37,17 @@
     ad_user_logout 
 }
 
-
 # Redirect to the registration assessment if there is one, if not, continue with the regular
 # registration form.
 
 
-set implName [parameter::get -parameter "RegImplName" -package_id [subsite::main_site_id]]
+set implName [parameter::get -parameter "RegistrationImplName" -package_id [subsite::main_site_id]]
 
-set url [callback -catch -impl "$implName" user::registration]
+set callback_url [callback -catch -impl "$implName" user::registration]
 
-if { ![empty_string_p $url] } {
-    ad_returnredirect "$url"
-
+if { $callback_url ne "" } {
+    ad_returnredirect [export_vars -base $callback_url { return_url }]
+    ad_script_abort
 }