Index: openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	26 Apr 2018 08:56:37 -0000	1.16
+++ openacs-4/packages/auth-ldap/tcl/auth-ldap-procs.tcl	9 May 2018 15:33:29 -0000	1.17
@@ -523,7 +523,7 @@
     }
     append dn ",$params(BaseDN)"
 
-    set attributes {}
+    set attributes [list]
     foreach elm [split $params(Attributes) ";"] {
         set elmv [split $elm "="]
         set attribute [string trim [lindex $elmv 0]]
@@ -603,7 +603,7 @@
     }
 
     # Set up mapping data structure
-    array set map {}
+    array set map [list]
     foreach elm [split $params(InfoAttributeMap) ";"] {
         set elmv [split $elm "="]
         set oacs_elm [string trim [lindex $elmv 0]]
@@ -613,7 +613,7 @@
     }
     
     # Map LDAP attributes to OpenACS elements
-    array set user {}
+    array set user [list]
     foreach { attribute value } [lindex $search_result 0] {
         if { [info exists map($attribute)] } {
             foreach oacs_elm $map($attribute) {
@@ -704,7 +704,7 @@
     if { [llength $matches] < 1 } {
         return [list]
     } else {
-	set usernames {}
+	set usernames [list]
 	foreach user $matches { 
 	    lappend usernames [lindex $user 3] 
 	}