Index: openacs-4/packages/acs-subsite/www/permissions/grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/permissions/grant.tcl,v
diff -u -r1.14.10.4 -r1.14.10.5
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	11 Oct 2013 11:11:17 -0000	1.14.10.4
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	11 Oct 2013 11:44:55 -0000	1.14.10.5
@@ -53,7 +53,7 @@
     }
 
     # the level of the first privilege element that we move
-    set start_pos_level [lindex [lindex $hierarchy $start_pos] 0]
+    set start_pos_level [lindex $hierarchy $start_pos 0]
 
     # find the end position up to where the block extends that we have
     # to move
@@ -71,7 +71,7 @@
     # Only cut out the block if it is on the toplevel, which means it
     # hasn't been moved yet. Otherwise the block will appear in two
     # places intentionally.
-    if { [lindex [lindex $hierarchy $start_pos] 0] == 0 } {
+    if { [lindex $hierarchy $start_pos 0] == 0 } {
         set hierarchy [lreplace $hierarchy $start_pos $end_pos]
     }
 
@@ -80,7 +80,7 @@
         # hierarchy. 
         continue
     }
-    set target_level [lindex [lindex $hierarchy $target_pos] 0]
+    set target_level [lindex $hierarchy $target_pos 0]
 
     # remember the starting level in the block
     set offset [lindex $block_to_move 0 0]
@@ -102,8 +102,7 @@
 # The $hierarchy datastructure is ready, fill a select widget options list with it.
 
 foreach element $hierarchy {
-    set privilege [lindex $element 1]
-    set level [lindex $element 0]
+    lassign $element level privilege
 
     lappend select_list [list "[string repeat "   " $level] $privilege" $privilege]
 }