Index: openacs-4/packages/dotlrn/www/admin/users-search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/users-search.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn/www/admin/users-search.tcl	21 Jan 2018 00:38:38 -0000	1.33
+++ openacs-4/packages/dotlrn/www/admin/users-search.tcl	25 Apr 2018 19:47:47 -0000	1.34
@@ -174,7 +174,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 || '%'))"
@@ -235,7 +235,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}"
@@ -260,8 +260,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]