Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.25 -r1.26
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	10 Sep 2003 16:42:18 -0000	1.25
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	10 Sep 2003 17:02:28 -0000	1.26
@@ -1143,11 +1143,12 @@
 } {
     # These are used in the messages below
     set token [auth::get_user_secret_token -user_id $user_id]
+    acs_user::get -user_id $user_id -array user
     set confirmation_url [export_vars -base "[ad_url]/register/email-confirm" { token user_id }]
     set system_name [ad_system_name]    
 
     ns_sendmail \
-        $email \
+        $user(email) \
         [parameter::get -parameter NewRegistrationEmailAddress -default [ad_system_owner]] \
         [_ acs-subsite.lt_Welcome_to_system_nam] \
         [_ acs-subsite.lt_To_confirm_your_regis]