Index: openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl	27 Mar 2018 14:22:30 -0000	1.3
+++ openacs-4/packages/dotlrn-admin/www/admin/users-add-to-community.tcl	7 Apr 2018 11:00:26 -0000	1.4
@@ -79,7 +79,7 @@
 
         # Now notify the users that they've been added to the community.
 
-        set sender_email [cc_email_from_party [ad_conn user_id]]
+        set sender_email [party::email -party_id [ad_conn user_id]]
         foreach {community} $communities {
             if { $community_id == [lindex $community 1] } {
                 set community_name [lindex $community 0]