Index: openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl	30 Nov 2002 17:13:22 -0000	1.2
+++ openacs-4/packages/acs-admin/www/users/modify-admin-privileges.tcl	10 Jan 2007 21:22:00 -0000	1.3
@@ -16,12 +16,12 @@
 
 set context [list [list "./" "Users"] "Modify privileges"]
 
-if ![info exists confirmed_p] {
+if {![info exists confirmed_p]} {
     set confirmed_p 0
 }
 
-if $confirmed_p {
-    if [string equal grant $action] {
+if {$confirmed_p} {
+    if {"grant" eq $action} {
         permission::grant -object_id [acs_magic_object "security_context_root"] -party_id $user_id -privilege "admin"
     } else {
         permission::revoke -object_id [acs_magic_object "security_context_root"] -party_id $user_id -privilege "admin"