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} }