Index: openacs-4/packages/acs-subsite/www/user/password-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/password-update.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-subsite/www/user/password-update.tcl	27 Feb 2004 16:02:31 -0000	1.20
+++ openacs-4/packages/acs-subsite/www/user/password-update.tcl	10 Jan 2007 21:22:11 -0000	1.21
@@ -18,7 +18,7 @@
     security::require_secure_conn
 }
 
-if { ![empty_string_p $old_password] } {
+if { $old_password ne "" } {
     # If old_password is set, this is a user who has had his password recovered,
     # so they won't be authenticated yet.
 } else {
@@ -162,12 +162,12 @@
     }
 
     # If the account was closed, it might be open now
-    if { [string equal [ad_conn account_status] "closed"] } {
+    if {[ad_conn account_status] eq "closed"} {
         auth::verify_account_status
     }
     
 } -after_submit {
-    if { [empty_string_p $return_url] } {
+    if { $return_url eq "" } {
         set return_url [ad_pvt_home]
         set pvt_home_name [ad_pvt_home_name]
         set continue_label [_ acs-subsite.Continue_to_your_account]