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.114.2.20 -r1.114.2.21
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	30 Mar 2021 15:58:01 -0000	1.114.2.20
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	8 Apr 2021 15:52:08 -0000	1.114.2.21
@@ -252,7 +252,7 @@
     array set result {auth_status "n/a" auth_message "" account_status "n/a" account_message ""}
 
     ad_try {
-        array set result [auth::authentication::Authenticate \
+        array set result [auth::authentication::authenticate \
                               -username $username \
                               -authority_id $authority_id \
                               -password $password]
@@ -1804,7 +1804,7 @@
 #
 #####
 
-ad_proc -private auth::authentication::Authenticate {
+ad_proc -private auth::authentication::authenticate {
     {-authority_id:required}
     {-username:required}
     {-password:required}
@@ -1850,6 +1850,23 @@
     }
 }
 
+ad_proc -deprecated auth::authentication::Authenticate args {
+    Invoke the Authenticate service contract operation for the given authority.
+
+    DEPRECATED: this used to be a private api, however, it could be
+    made public, as it calls only public api itself and provides some
+    convenience. Unfortunately, it has been named in camelcase, so we
+    have to create a new alias and deprecate this one.
+
+    @see auth::authentication::authenticate
+
+    @param authority_id The ID of the authority to ask to verify the user.
+    @param username Username of the user.
+    @param password The password as the user entered it.
+} {
+    return [auth::authentication::authenticate {*}$args]
+}
+
 #####
 #
 # auth::registration