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.89.2.6 -r1.89.2.7
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Sep 2016 11:06:41 -0000	1.89.2.6
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	31 Jan 2017 17:51:03 -0000	1.89.2.7
@@ -390,7 +390,7 @@
     set parameter_value [parameter::get_from_package_key -parameter RegisterAuthority -package_key "acs-authentication"]
 
     # Catch the case where somebody has set the parameter to some non-existant authority
-    if { [lsearch [auth::authority::get_short_names] $parameter_value] != -1} {
+    if {$parameter_value in [auth::authority::get_short_names]} {
         # The authority exists
         set authority_id [auth::authority::get_id -short_name $parameter_value]