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 -r1.14 -r1.15
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	8 Nov 2010 23:09:10 -0000	1.14
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	27 Oct 2014 16:38:57 -0000	1.15
@@ -7,7 +7,7 @@
     @cvs-id $Id$
 
 } {
-    user_id
+    user_id:naturalnum,notnull
     {member_state "no_change"}
     {email_verified_p "no_change"}
     {return_url ""}
@@ -91,13 +91,13 @@
 set message $email_message
 
 if {$return_url eq ""} {
-    set return_url "/acs-admin/users/one?[export_url_vars user_id]"
+    set return_url "/acs-admin/users/one?[export_vars -url {user_id}]"
 } else {
     ad_returnredirect $return_url
     ad_script_abort
 }
 
 set context [list [list "./" "Users"] "$action"]
-set export_vars [export_url_vars email email_from subject message return_url]
+set export_vars [export_vars -url {email email_from subject message return_url}]
 
 ad_return_template