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 -r1.5 -r1.6
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	8 Oct 2003 09:59:22 -0000	1.5
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	23 Jan 2004 10:58:20 -0000	1.6
@@ -345,6 +345,7 @@
     Implements the RetrievePassword operation of the auth_password 
     service contract for LDAP.
 } {
+    return { password_status not_supported }
 }
 
 ad_proc -private auth::ldap::password::ResetPassword {