Index: openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl	4 Apr 2018 08:11:26 -0000	1.17
+++ openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl	25 Apr 2018 19:47:46 -0000	1.18
@@ -240,16 +240,16 @@
     Converts a properly structured list of lists into JSON format.
         The list of lists may look something like
 
-            set data [list]
+            set data {}
             lappend data [list [list "x" "1"] [list "y" "10"] ]
             lappend data [list [list "x" "5"] [list "y" "20"] ]
 
         each line represents a row composed of lists.
         Each list in the row holds a pair that will be joined by ":".
 } {
-    set rows [list]
+    set rows {}
     foreach row $lists_of_pairs {
-        set pairs [list]
+        set pairs {}
         foreach pair $row {
             lappend pairs [join $pair ":"]
         }