Index: openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	9 Nov 2008 23:29:23 -0000	1.12
+++ openacs-4/packages/dotlrn/www/admin/site-wide-admin-toggle.tcl	1 Nov 2013 21:08:33 -0000	1.13
@@ -39,9 +39,9 @@
 	return
 }
 
-if {[string equal $value "grant"] == 1} {
+if {$value eq "grant"} {
     ad_permission_grant $user_id [acs_magic_object "security_context_root"] "admin"
-} elseif {[string equal $value "revoke"] == 1} {
+} elseif {$value eq "revoke"} {
     ad_permission_revoke $user_id [acs_magic_object "security_context_root"] "admin"
 }