Index: openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	19 Jan 2018 14:09:48 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/permissions/revoke-2.tcl	23 Apr 2018 21:32:46 -0000	1.10
@@ -16,11 +16,10 @@
 
 if {$operation eq "Yes"} {
     db_transaction {
-	foreach item $revoke_list {
-	    set party_id [lindex $item 0]
-	    set privilege [lindex $item 1]
+        foreach item $revoke_list {
+            lassign $item party_id privilege
             permission::revoke -party_id $party_id -object_id $object_id -privilege $privilege
-	}
+        }
     }
 }