Index: openacs-4/packages/acs-admin/www/users/member-state-change.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/member-state-change.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	1 Mar 2005 00:01:21 -0000	1.11
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	10 Jan 2007 21:22:00 -0000	1.12
@@ -69,7 +69,7 @@
     }
 }
 
-if [empty_string_p $action] {
+if {$action eq ""} {
     ad_return_complaint 1 "Not valid action: You have not changed the user in any way"
     return
 }
@@ -97,7 +97,7 @@
 set subject "$action"
 set message $email_message
 
-if [empty_string_p $return_url] {
+if {$return_url eq ""} {
     set return_url "/acs-admin/users/one?[export_url_vars user_id]"
 } else {
     ad_returnredirect $return_url