Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -N -r1.50.8.1 -r1.50.8.2
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	13 Sep 2013 12:02:23 -0000	1.50.8.1
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	3 Oct 2013 09:23:38 -0000	1.50.8.2
@@ -927,7 +927,7 @@
 		set required_p [lindex $question 1]
 		append output "<td>[ad_decode $required_p "t" "<span style=\"color: #f00;\">*</span>" "&nbsp;"]</td>"
 		foreach choice [lindex $question 2] {
-		    if {[lsearch -exact $value $choice]==-1} {
+		    if {$choice ni $value} {
 			append output "<td><input type=\"radio\" name=\"$name\" value=\"$choice\"></td>"
 		    } else {
 			append output "<td><input type=\"radio\" name=\"$name\" value=\"$choice\" checked></td>"