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 -r1.3 -r1.4
--- openacs-4/packages/diagram/tcl/diagram-procs.tcl	25 Apr 2018 19:47:47 -0000	1.3
+++ openacs-4/packages/diagram/tcl/diagram-procs.tcl	26 Apr 2018 08:56:38 -0000	1.4
@@ -303,7 +303,7 @@
     set diagram_properties(count) $count
 
     for {set j 1} {$j <= [llength $diagram_properties(display_elements)]} {incr j} {
-	set col$j [list] 
+	set col$j {} 
     }
 
     #iterate over the multirow
@@ -343,7 +343,7 @@
 
 	#we need to update min and max
 
-	set list [list]
+	set list {}
 
 	#its the x axis
 	if {$xy == 1} {