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 -r1.21.8.3 -r1.21.8.4
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	2 Oct 2013 07:23:44 -0000	1.21.8.3
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	10 Oct 2013 20:44:07 -0000	1.21.8.4
@@ -207,7 +207,7 @@
         }
     }
 
-    if { $email_verified_p eq "t" } {
+    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}}] [_ acs-tcl.lt_require_email_verific]]
     } else {