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 -r1.49 -r1.50
--- openacs-4/packages/search/tcl/search-procs.tcl	7 Aug 2017 23:48:29 -0000	1.49
+++ openacs-4/packages/search/tcl/search-procs.tcl	25 Apr 2018 19:23:27 -0000	1.50
@@ -441,7 +441,7 @@
 } {
     List of names of extra args implemented
 } {
-    set names [list]
+    set names {}
     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 [list]
+    set extra_args {}
     foreach name [extra_args_names] {
 	upvar $name local_$name
 	ns_log debug "extra_args name = '${name}' exists [info exists local_${name}]"