Index: openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl,v
diff -u -r1.9.14.1 -r1.9.14.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	11 Sep 2015 11:40:40 -0000	1.9.14.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-user-extension-procs.tcl	12 Sep 2016 11:17:13 -0000	1.9.14.2
@@ -39,7 +39,7 @@
         A new user has been added: process dotLRN specific stuff
     } {
         # Get the user's email address
-        set email [cc_email_from_party $user_id]
+        set email [party::email -party_id $user_id]
 
         # Loop through patterns
         foreach pattern [automatic_email_patterns] {