Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -N -r1.32 -r1.33
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	10 Jan 2007 21:22:01 -0000	1.32
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	25 Sep 2007 15:22:34 -0000	1.33
@@ -329,12 +329,13 @@
 
     db_1row get_usr_id_and_password_hash {SELECT user_id, password as password_hash FROM users WHERE username = :username}
 
+    set email [party::email -party_id $user_id]
     # TODO: This email message text should go in the recipient user language, english or every language supported
     set subject "[ad_system_name]: [_ acs-subsite.change_password_email_subject] $username"
     set body "[_ acs-subsite.change_password_email_body_0]\n\n[export_vars -base "[ad_url]/user/password-reset" {user_id password_hash}]\n\n[_ acs-subsite.change_password_email_body_1]"
 
     ns_sendmail \
-	$username \
+	$email \
 	[ad_outgoing_sender] \
 	$subject \
 	$body