Index: openacs-4/packages/assessment/www/asm-admin/item-stats.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/item-stats.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/assessment/www/asm-admin/item-stats.tcl	25 Apr 2018 19:47:46 -0000	1.9
+++ openacs-4/packages/assessment/www/asm-admin/item-stats.tcl	9 May 2018 15:33:29 -0000	1.10
@@ -33,7 +33,7 @@
 
  if {[info exists session_id_list]} {
      set session_ids $session_id_list
-     set session_id_list {}
+     set session_id_list [list]
      foreach elm [split $session_id_list] {
  	if {$elm ne ""} {
  	    lappend session_id_list $elm
@@ -95,8 +95,8 @@
 	    set total_correct 0
 	    set total_choices 0
 
-	    set choices {}
-	    set visited_session_ids {}
+	    set choices [list]
+	    set visited_session_ids [list]
 
 	    set item_choices_limit_session ""
 	    if { ([info exists limit_to_section_clause] && $limit_to_section_clause ne "") } { set item_choices_limit_session "and d.session_id in $limit_to_section_clause" }
@@ -210,7 +210,7 @@
 		"float" {
 		    set stats "<table>\n"
 
-		    set number_answers {}
+		    set number_answers [list]
 		    set total_responses 0
 		    db_foreach get_number_answers {
 			select count(*) as n_responses, numeric_answer