Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -N -r1.50 -r1.51
--- openacs-4/packages/search/tcl/search-procs.tcl	25 Apr 2018 19:23:27 -0000	1.50
+++ openacs-4/packages/search/tcl/search-procs.tcl	9 May 2018 15:33:33 -0000	1.51
@@ -441,7 +441,7 @@
 } {
     List of names of extra args implemented
 } {
-    set names {}
+    set names [list]
     foreach procname [info procs ::callback::search::extra_arg::impl::*] {
 	lappend names [namespace tail $procname]
     }
@@ -469,7 +469,7 @@
 } {
     List of extra_args to pass to search::search callback
 } {
-    set extra_args {}
+    set extra_args [list]
     foreach name [extra_args_names] {
 	upvar $name local_$name
 	ns_log debug "extra_args name = '${name}' exists [info exists local_${name}]"