Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v diff -u -N -r1.284.2.48 -r1.284.2.49 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 4 Nov 2019 10:44:52 -0000 1.284.2.48 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 11 Nov 2019 12:49:45 -0000 1.284.2.49 @@ -3068,7 +3068,7 @@ set :correction {} foreach o ${:options} a ${:answer} { lassign $o label v - if {$a} { + if {$a ne ""} { lappend :correction [expr {$v in $value}] #:log "enumeration CORRECT? <$a> <$v in $value> -> [expr {$v in $value}]" } else {