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 -N -r1.26.2.3 -r1.26.2.4
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	9 Jul 2004 22:00:09 -0000	1.26.2.3
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	17 Aug 2004 12:00:34 -0000	1.26.2.4
@@ -313,7 +313,7 @@
     }
 
     # Reset the password
-    if [empty_string_p $new_password] {
+    if [exists_and_not_null new_password] {
 	set password $new_password
     } else {
 	set password [ad_generate_random_string]
@@ -323,7 +323,6 @@
 
     # We return the new passowrd here and let the OpenACS framework send the email with the new password
     set result(password) $password
-
     return [array get result]
 }