Index: openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl	25 Dec 2006 16:40:04 -0000	1.1
+++ openacs-4/packages/ajaxhelper/www/tests/test_dojochartengine.tcl	25 Apr 2018 19:47:46 -0000	1.2
@@ -25,7 +25,7 @@
         return $type
     }
     $objname proc bindings_from_list {lists_of_pairs} {
-        set pairs [list]
+        set pairs {}
         foreach pair $lists_of_pairs {
             lappend pairs [join $pair ":"]
         }
@@ -58,7 +58,7 @@
         return $varname
     }
     $objname proc range_from_list {rangelist} {
-        set pairs [list]
+        set pairs {}
         foreach pair $rangelist {
             lappend pairs [join $pair ":"]
         }
@@ -100,7 +100,7 @@
         return $varname
     }
     $objname proc range_from_list {rangelist} {
-        set pairs [list]
+        set pairs {}
         foreach pair $rangelist {
             lappend pairs [join $pair ":"]
         }
@@ -135,7 +135,7 @@
     $objname set axis_obj_list [list "axis1" "axis2"]
     $objname proc createscript { } {
         my instvar varname series_obj_list axis_obj_list
-        set axislist [list]
+        set axislist {}
         foreach axis $axis_obj_list {
             lappend axislist [$axis getvarname]
         }