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.3 -r1.14.10.4
--- openacs-4/packages/acs-subsite/www/permissions/grant.tcl	9 Sep 2013 16:44:25 -0000	1.14.10.3
+++ openacs-4/packages/acs-subsite/www/permissions/grant.tcl	11 Oct 2013 11:11:17 -0000	1.14.10.4
@@ -59,7 +59,7 @@
     # to move
     set end_pos $start_pos
     for { set i [expr {$start_pos + 1}] } { $i <= [llength $hierarchy] } { incr i } {
-        set level [lindex [lindex $hierarchy $i] 0]
+        set level [lindex $hierarchy $i 0]
         if { $level <= $start_pos_level } {
             break
         }
@@ -83,7 +83,7 @@
     set target_level [lindex [lindex $hierarchy $target_pos] 0]
 
     # remember the starting level in the block
-    set offset [lindex [lindex $block_to_move 0] 0]
+    set offset [lindex $block_to_move 0 0]
 
     # insert the block to the new position, looping through the block
     foreach element $block_to_move {