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.5 -r1.5.4.1
--- openacs-4/packages/acs-subsite/lib/user-new.tcl	27 Oct 2003 12:18:10 -0000	1.5
+++ openacs-4/packages/acs-subsite/lib/user-new.tcl	26 Mar 2004 13:46:12 -0000	1.5.4.1
@@ -128,6 +128,10 @@
     if { ![empty_string_p $next_url] } {
         # Add user_id and account_message to the URL
         
+        if { $creation_info(generated_pwd_p) } {
+            set password $creation_info(password)
+        }
+        
         ad_returnredirect [export_vars -base $next_url {user_id password {account_message $creation_info(account_message)}}]
         ad_script_abort
     }