Index: openacs-4/packages/diagram/tcl/diagram-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/diagram/tcl/diagram-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/diagram/tcl/diagram-procs.tcl	23 Mar 2018 23:53:01 -0000	1.2
+++ openacs-4/packages/diagram/tcl/diagram-procs.tcl	25 Apr 2018 19:47:47 -0000	1.3
@@ -329,8 +329,8 @@
     set y_max ""
 
     set scales $diagram_properties(scales)
-    set minima [list]
-    set sum [list]
+    set minima {}
+    set sum {}
 
     #lets iterate over all columns and get the borders
     for {set j 1} {$j <= [llength $diagram_properties(display_elements)]} {incr j} {
@@ -446,7 +446,7 @@
     set __output {}
 
     # Output header row
-    set __cols [list]
+    set __cols {}
     foreach __element_name $diagram_properties(display_elements) {
         lappend __cols [csv_quote $__element_name]
     }
@@ -455,7 +455,7 @@
     # Output rows
     template::multirow foreach $diagram_properties(multirow) {
 
-        set __cols [list]
+        set __cols {}
 
         foreach __element_name $diagram_properties(display_elements) {
             template::diagram::element::get_reference \