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.26.2.5 -r1.26.2.6
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	24 Aug 2004 20:43:43 -0000	1.26.2.5
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	21 Sep 2004 17:56:04 -0000	1.26.2.6
@@ -214,8 +214,8 @@
 
 ad_proc -private auth::local::password::ChangePassword {
     username
-    old_password
     new_password
+    {old_password ""}
     {parameters {}}
     {authority_id {}}
 } {
@@ -232,11 +232,14 @@
         set result(password_status) "no_account"
         return [array get result]
     }
-    
-    if { ![ad_check_password $user_id $old_password] } {
-        set result(password_status) "old_password_bad"
-        return [array get result]
+
+    if { ![empty_string_p $old_password] } {
+	if { ![ad_check_password $user_id $old_password] } {
+	    set result(password_status) "old_password_bad"
+	    return [array get result]
+	}
     }
+
     if { [catch { ad_change_password $user_id $new_password } errmsg] } {
         set result(password_status) "change_error"
         global errorInfo