Index: openacs-4/packages/acs-subsite/www/permissions/revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/revoke.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	7 Aug 2017 23:47:59 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/permissions/revoke.tcl	23 Apr 2018 21:32:46 -0000	1.8
@@ -31,10 +31,9 @@
 }]
 
 foreach item $revoke_list {
-    set party_id [lindex $item 0]
-    set privilege [lindex $item 1]
+    lassign $item party_id privilege
     append body [subst {
-	<li>[db_string party_name {}]</li>
+        <li>[db_string party_name {}]</li>
     }]
 }
 
@@ -46,7 +45,7 @@
 
 foreach item $revoke_list {
     append body [subst {
-	<input type="hidden" name="revoke_list" value="$item">
+        <input type="hidden" name="revoke_list" value="$item">
     }]
 }