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.80 -r1.284.2.81 --- openacs-4/packages/xowiki/tcl/form-field-procs.tcl 11 Feb 2020 13:13:05 -0000 1.284.2.80 +++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl 11 Feb 2020 20:29:40 -0000 1.284.2.81 @@ -712,7 +712,7 @@ # consequence the comparison is not case sensitive. Note that the # answer_words have to be provided in lower case as well. # - set value [regsub -all {[ ]+} ${:value} " "] + set value [string trim [regsub -all {[ ]+} ${:value} " "]] if {[string match "*lower*" [lindex ${:correct_when} 1]]} { set value [string tolower $value] set words [lrange ${:correct_when} 2 end]