Index: openacs-4/packages/acs-authentication/tcl/password-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/password-procs.tcl,v
diff -u -r1.19.2.3 -r1.19.2.4
--- openacs-4/packages/acs-authentication/tcl/password-procs.tcl	20 Oct 2015 08:19:13 -0000	1.19.2.3
+++ openacs-4/packages/acs-authentication/tcl/password-procs.tcl	12 Sep 2016 11:06:41 -0000	1.19.2.4
@@ -178,7 +178,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(password_status) "failed_to_connect"
             set result(password_message) "Unknown email"
@@ -248,7 +248,7 @@
             set authority_id [auth::authority::local]
         }
     } else {
-        set user_id [cc_lookup_email_user $email]
+        set user_id [party::get_by_email -email $email]
         if { $user_id ne "" } {
             acs_user::get -user_id $user_id -array user
             set authority_id $user(authority_id)