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.5 -r1.6
--- openacs-4/packages/acs-subsite/lib/login.tcl	12 Sep 2003 09:10:38 -0000	1.5
+++ openacs-4/packages/acs-subsite/lib/login.tcl	12 Sep 2003 10:18:30 -0000	1.6
@@ -50,7 +50,7 @@
 set authority_options [auth::authority::get_authority_options]
 
 if { ![exists_and_not_null authority_id] } {
-    set authority_id [lindex $authority_options 0]
+    set authority_id [lindex [lindex $authority_options 0] 1]
 }
 
 set forgotten_pwd_url [auth::password::get_forgotten_url -authority_id $authority_id -username $username]