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.18 -r1.19
--- openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl	25 Apr 2018 19:47:46 -0000	1.18
+++ openacs-4/packages/ajaxhelper/tcl/ajax-procs.tcl	9 May 2018 15:33:29 -0000	1.19
@@ -240,16 +240,16 @@
     Converts a properly structured list of lists into JSON format.
         The list of lists may look something like
 
-            set data {}
+            set data [list]
             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 {}
+    set rows [list]
     foreach row $lists_of_pairs {
-        set pairs {}
+        set pairs [list]
         foreach pair $row {
             lappend pairs [join $pair ":"]
         }