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.4 -r1.5
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	15 Feb 2002 01:41:31 -0000	1.4
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	6 Mar 2002 00:06:24 -0000	1.5
@@ -98,6 +98,9 @@
 
 if [empty_string_p $return_url] {
     set return_url "/acs-admin/users/one?[export_url_vars user_id]"
+} else {
+    ad_returnredirect $return_url
+    ad_script_abort
 }
 
 set context_bar [ad_admin_context_bar [list "index.tcl" "Users"] "$action"]