Index: openacs-4/packages/acs-subsite/www/members/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/member-state-change.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/members/member-state-change.tcl	7 Aug 2017 23:47:59 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/members/member-state-change.tcl	17 Sep 2017 16:14:18 -0000	1.4
@@ -51,8 +51,7 @@
     #
     # Use the current user in the "from" field of the email
     #
-    set email_from [ad_conn user_id]
-    
+    set email_from [dict get [acs_user::get -user_id [ad_conn user_id]] email]
     acs_mail_lite::send -send_immediately \
         -to_addr $user_info(email) \
         -from_addr $email_from \