Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -r1.47.2.5 -r1.47.2.6
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	30 Apr 2021 16:06:28 -0000	1.47.2.5
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	16 Sep 2022 15:16:44 -0000	1.47.2.6
@@ -355,7 +355,6 @@
     username
     parameters
     {authority_id {}}
-    {new_password {}}
 } {
     Implements the ResetPassword operation of the auth_password
     service contract for the local account implementation.
@@ -372,11 +371,7 @@
     }
 
     # Reset the password
-    if { $new_password ne "" } {
-        set password $new_password
-    } else {
-        set password [ad_generate_random_string]
-    }
+    set password [ad_generate_random_string]
 
     ad_change_password $user_id $password