Index: openacs-4/packages/acs-ldap-authentication/www/examples/user-login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-ldap-authentication/www/examples/user-login.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-ldap-authentication/www/examples/user-login.tcl	18 Sep 2002 12:08:20 -0000	1.2
+++ openacs-4/packages/acs-ldap-authentication/www/examples/user-login.tcl	23 Apr 2018 15:19:31 -0000	1.3
@@ -19,7 +19,7 @@
 }
 
 set user_id [ldap_check_password $email $password]
-if [empty_string_p $user_id] {
+if { $user_id eq "" } {
     # The user is in the database, but has provided an incorrect password.
     ad_returnredirect "bad-password?user_id=$user_id"
     ad_script_abort