Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	9 May 2018 15:33:28 -0000	1.27
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	14 Nov 2018 10:14:57 -0000	1.28
@@ -239,12 +239,12 @@
     if { $email_verified_p == "t" } {
         lappend user_finite_states \
             [list [export_vars -base "/acs-admin/users/member-state-change" {
-                user_id return_url {email_verified_p f}
+                user_id return_url member_state {email_verified_p f}
             }] [_ acs-tcl.lt_require_email_verific]]
     } else {
         lappend user_finite_states \
             [list [export_vars -base "/acs-admin/users/member-state-change" {
-                user_id return_url {email_verified_p t}
+                user_id return_url member_state {email_verified_p t}
             }] [_ acs-tcl.approve_email]]
     }