Index: openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	26 Apr 2018 08:56:38 -0000	1.9
+++ openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	9 May 2018 15:33:33 -0000	1.10
@@ -166,7 +166,7 @@
 		    set user_value $choice_id
 		}
 		
-		set choices {}
+		set choices [list]
 		db_foreach sursimp_question_choices_2 "select choice_id, label
 from survsimp_question_choices
 where question_id = :question_id
@@ -186,7 +186,7 @@
 	}
 
 	"checkbox" {
-	    set choices {}
+	    set choices [list]
 	    db_foreach sursimp_question_choices_3 "select * from survsimp_question_choices
 where question_id = :question_id
 order by sort_order" {
@@ -253,7 +253,7 @@
   and sq.active_p = 't'
 order by sort_key"
     } else {
-	set bind_var_list {}
+	set bind_var_list [list]
 	set i 0
 	foreach cat_id $category_id_list {
 	    incr i