Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.34.4.1 -r1.34.4.2
--- openacs-4/packages/acs-subsite/lib/login.tcl	1 Oct 2013 10:03:54 -0000	1.34.4.1
+++ openacs-4/packages/acs-subsite/lib/login.tcl	11 Oct 2013 11:11:16 -0000	1.34.4.2
@@ -80,7 +80,7 @@
 set authority_options [auth::authority::get_authority_options]
 
 if { ![info exists authority_id] || $authority_id eq "" } {
-    set authority_id [lindex [lindex $authority_options 0] 1]
+    set authority_id [lindex $authority_options 0 1]
 }
 
 set forgotten_pwd_url [auth::password::get_forgotten_url -authority_id $authority_id -username $username -email $email]
Index: openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl,v
diff -u -r1.5.10.1 -r1.5.10.2
--- openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	10 Oct 2013 21:00:45 -0000	1.5.10.1
+++ openacs-4/packages/acs-subsite/tcl/group-type-procs.tcl	11 Oct 2013 11:11:17 -0000	1.5.10.2
@@ -145,7 +145,7 @@
 	    append text "-- Drop script\n";
 	    for { set i [expr {[llength $plsql_drop] - 1}] } { $i >= 0 } { set i [expr {$i - 1}] } {
 		# Don't need the sql keys when we display debugging information
-		append text "-- [lindex [lindex $plsql_drop $i] 1]\n\n"
+		append text "-- [lindex $plsql_drop $i 1]\n\n"
 	    }
 	    return $text
 	}
Index: openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl,v
diff -u -r1.13 -r1.13.4.1
--- openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	15 Apr 2011 09:50:52 -0000	1.13
+++ openacs-4/packages/acs-subsite/www/admin/subsite-add.tcl	11 Oct 2013 11:11:17 -0000	1.13.4.1
@@ -22,7 +22,7 @@
 if { [llength $subsite_package_options] == 1 } {
     ad_form -extend -name subsite -form {
         {package_key:text(hidden)
-            {value "[lindex [lindex $subsite_package_options 0] 1]"}
+            {value "[lindex $subsite_package_options 0 1]"}
         }
     }
 } else {
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 {
Index: openacs-4/packages/acs-subsite/www/register/recover-password.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/recover-password.tcl,v
diff -u -r1.12.6.1 -r1.12.6.2
--- openacs-4/packages/acs-subsite/www/register/recover-password.tcl	27 Aug 2013 12:20:38 -0000	1.12.6.1
+++ openacs-4/packages/acs-subsite/www/register/recover-password.tcl	11 Oct 2013 11:11:17 -0000	1.12.6.2
@@ -31,7 +31,7 @@
 set authority_options [auth::authority::get_authority_options]
 
 if { (![info exists authority_id] || $authority_id eq "") } {
-    set authority_id [lindex [lindex $authority_options 0] 1]
+    set authority_id [lindex $authority_options 0 1]
 }
 
 ad_form -name recover -edit_buttons [list [list [_ acs-kernel.common_continue] ok]] -form { {dummy:text(hidden),optional} }