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.89.2.5 -r1.89.2.6
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	5 Jul 2016 16:39:24 -0000	1.89.2.5
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Sep 2016 11:06:41 -0000	1.89.2.6
@@ -211,7 +211,7 @@
             }
             return [array get result]
         }
-        set user_id [cc_lookup_email_user $email]
+        set user_id [party::get_by_email -email $email]
         if { $user_id eq "" } {
             set result(auth_status) "no_account"
             set result(auth_message) [_ acs-subsite.Unknown_email]