Index: openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl	21 Jan 2018 00:38:38 -0000	1.3
+++ openacs-4/packages/dotlrn-admin/www/admin/users-search.tcl	25 Apr 2018 19:47:47 -0000	1.4
@@ -171,7 +171,7 @@
         "dotlrn_users.email" \
         "dotlrn_users.type" \
     ]
-    set wheres [list]
+    set wheres {}
 
     if {$name ne ""} {
         lappend wheres "(lower(dotlrn_users.last_name) like lower('%' || :name || '%') or lower(dotlrn_users.first_names) like lower('%' || :name || '%') or lower(dotlrn_users.email) like lower('%' || :name || '%'))"
@@ -232,7 +232,7 @@
         }
         set in_clause "(dotlrn_users.user_id = acs_rels.object_id_two and acs_rels.rel_type in ("
 
-        set in_elements [list]
+        set in_elements {}
         for {set i 0} {$i < $role_list_length} {incr i} {
             set in_element__${i} [lindex $role_list $i]
             lappend in_elements ":in_element__${i}"
@@ -257,8 +257,8 @@
     }
 
     set referer [ns_conn url]
-    set selected_users_options [list]
-    set selected_users_values [list]
+    set selected_users_options {}
+    set selected_users_values {}
     db_foreach select_users $sql {
 	set href [export_vars -base user user_id]
         lappend selected_users_options [list [subst {<a href="[ns_quotehtml $href]">$last_name, $first_names</a> ($email)}] $user_id]