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.8 -r1.9
--- openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	25 Apr 2018 19:47:48 -0000	1.8
+++ openacs-4/packages/simple-survey/tcl/survsimp-procs.tcl	26 Apr 2018 08:56:38 -0000	1.9
@@ -166,7 +166,7 @@
 		    set user_value $choice_id
 		}
 		
-		set choices [list]
+		set choices {}
 		db_foreach sursimp_question_choices_2 "select choice_id, label
 from survsimp_question_choices
 where question_id = :question_id
@@ -253,7 +253,7 @@
   and sq.active_p = 't'
 order by sort_key"
     } else {
-	set bind_var_list [list]
+	set bind_var_list {}
 	set i 0
 	foreach cat_id $category_id_list {
 	    incr i