Index: openacs-4/packages/acs-admin/lib/password-update.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/password-update.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/lib/password-update.tcl	13 Jan 2005 13:54:41 -0000	1.2
+++ openacs-4/packages/acs-admin/lib/password-update.tcl	10 Jan 2007 21:21:59 -0000	1.3
@@ -81,12 +81,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]