Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -N -r1.6.2.3 -r1.6.2.4
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	9 Jul 2004 22:00:37 -0000	1.6.2.3
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	21 Sep 2004 17:56:25 -0000	1.6.2.4
@@ -71,6 +71,8 @@
     }
 
     set user_info_impl_id [acs_sc::impl::new_from_spec -spec $spec]
+
+    auth::local_ldap::after_install
 }
 
 ad_proc -private auth::ldap::before_uninstall {} {} {
@@ -299,8 +301,8 @@
 
 ad_proc -private auth::ldap::password::ChangePassword {
     username
-    old_password
     new_password
+    {old_password ""}
     {parameters {}}
     {authority_id {}}
 } {
@@ -332,15 +334,17 @@
             }
         }
     }
-
+    
     if { ![empty_string_p $dn] && ![empty_string_p $userPassword] } {
-        if { ![auth::ldap::check_password $userPassword $old_password] } {
-            set result(password_status) old_password_bad
-        } else {
-            auth::ldap::set_password -dn $dn -new_password $new_password -parameters $parameters
-            set result(password_status) ok
-        }
+	if { ![empty_string_p $old_password] || ![auth::ldap::check_password $userPassword $old_password] } {
+	    set result(password_status) old_password_bad
+	} else {
+	    auth::ldap::set_password -dn $dn -new_password $new_password -parameters $parameters
+	    set result(password_status) ok
+	}
     }
+	
+
     
     return [array get result]
 }