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.23.2.7 -r1.23.2.8
--- openacs-4/packages/acs-admin/www/users/member-state-change.tcl	6 Oct 2023 12:09:19 -0000	1.23.2.7
+++ openacs-4/packages/acs-admin/www/users/member-state-change.tcl	18 Oct 2023 09:49:19 -0000	1.23.2.8
@@ -40,8 +40,8 @@
 set email  [dict get $user_info email]
 set rel_id [dict get $user_info rel_id]
 
-if {$email_verified ne ""} {
-    set email_verified [expr {[string is true -strict] ? "t" : "f"}]
+if {$email_verified_p ne ""} {
+    set email_verified_p [expr {[string is true -strict] ? "t" : "f"}]
 }
 #
 # This page is used for state changes in the member_state, and as well