Index: openacs-4/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/survey/tcl/survey-procs.tcl	25 Apr 2018 19:47:48 -0000	1.13
+++ openacs-4/packages/survey/tcl/survey-procs.tcl	26 Apr 2018 08:56:38 -0000	1.14
@@ -209,7 +209,7 @@
 		    set user_value $choice_id
 		}
 		
-		set choices [list]
+		set choices {}
 		db_foreach question_choices_2 "" {
 		    if { $user_value == $choice_id } {
 			lappend choices "<input type=radio name=$element_name value=$choice_id checked> $label"