Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.28.8.1 -r1.28.8.2
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	30 Sep 2013 18:26:48 -0000	1.28.8.1
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	2 Oct 2013 08:01:35 -0000	1.28.8.2
@@ -84,7 +84,7 @@
         # Check that the columns provided in the array are all valid 
         # Set array entries as local variables
         foreach name $names {
-            if { [lsearch -exact $all_columns $name] == -1 } {
+            if {$name ni $all_columns} {
                 error "Attribute '$name' isn't valid for auth_authorities."
             }
             set $name $row($name)
@@ -248,7 +248,7 @@
     # Check that the columns provided in the array are all valid 
     # Set array entries as local variables
     foreach name $names {
-        if { [lsearch -exact $columns $name] == -1 } {
+        if {$name ni $columns} {
             error "Attribute '$name' isn't valid for auth_authorities."
         }
         if {$name eq "authority_id"} {