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.99 -r1.100
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	8 Apr 2018 04:57:01 -0000	1.99
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	9 Apr 2018 21:59:28 -0000	1.100
@@ -718,7 +718,7 @@
     # Handle required elements for local account
     foreach elm $local_required_elms {
         # Add to required
-        if { [lsearch $element_info(required) $elm] == -1 } {
+        if { $elm ni $element_info(required) } {
             lappend element_info(required) $elm
         }
 
@@ -731,7 +731,7 @@
 
     foreach elm $local_optional_elms {
         # Add to required
-        if { [lsearch $element_info(required) $elm] == -1 && [lsearch $element_info(optional) $elm] == -1 } {
+        if { $elm ni $element_info(required) && $elm ni $element_info(optional) } {
             lappend element_info(optional) $elm
         }
     }