Index: openacs-4/packages/acs-authentication/lib/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/lib/search.tcl,v
diff -u -r1.3 -r1.3.6.1
--- openacs-4/packages/acs-authentication/lib/search.tcl	9 Dec 2009 22:35:34 -0000	1.3
+++ openacs-4/packages/acs-authentication/lib/search.tcl	12 Oct 2013 14:05:55 -0000	1.3.6.1
@@ -21,7 +21,7 @@
 }
 
 set authority_options [auth::authority::get_authority_options]
-set default_authority_id [lindex [lindex $authority_options 0] 1]
+set default_authority_id [lindex $authority_options 0 1]
 if {$authority_id eq ""} {
     set authority_id $default_authority_id
 }
Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.87.4.4 -r1.87.4.5
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	2 Oct 2013 08:01:34 -0000	1.87.4.4
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Oct 2013 14:05:55 -0000	1.87.4.5
@@ -1427,7 +1427,7 @@
             set PasswordExpirationDays [parameter::get -parameter PasswordExpirationDays -package_id [ad_acs_kernel_id] -default 0]
             
 
-            if { $email_verified_p eq "f" } {
+            if { $email_verified_p == "f" } {
                 if { !$no_dialogue_p } {
                     set result(account_message) "<p>[_ acs-subsite.lt_Registration_informat]</p><p>[_ acs-subsite.lt_Please_read_and_follo]</p>"