Index: openacs-4/packages/cronjob/tcl/cronjob-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cronjob/tcl/cronjob-init.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cronjob/tcl/cronjob-init.tcl	29 May 2009 09:11:28 -0000	1.4
+++ openacs-4/packages/cronjob/tcl/cronjob-init.tcl	25 Apr 2018 19:47:47 -0000	1.5
@@ -22,8 +22,8 @@
 
     } {   
         ns_log Debug "Running qd_write_query_select with $package $attrs"
-        set query [list]
-        set in_args [list]
+        set query {}
+        set in_args {}
         set args [concat $attrs]
         foreach {attr sign value} $args {
             lappend in_args $attr
@@ -135,7 +135,7 @@
 
     proc qd_write_query {package args} {
         
-        set query [list]
+        set query {}
         set attrs_and_defaults [eval qd_choose_function $package $args]
         foreach {attr default_value} $attrs_and_defaults {
             if {[lsearch $args $attr] < 0 } {
@@ -153,7 +153,7 @@
 
     proc qd_write_query_upvar {package listvar} {
         
-        set query [list]
+        set query {}
         upvar $listvar args
         set attrs_and_defaults [eval qd_choose_function $package $args]
         if {[string match "!NO MATCH:*" $attrs_and_defaults ]} {