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 -r1.284.2.92 -r1.284.2.93
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Mar 2020 12:37:02 -0000	1.284.2.92
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Mar 2020 17:00:30 -0000	1.284.2.93
@@ -684,8 +684,13 @@
     #
     # Correct, when answer is in the given set.
     #
-    set values [lrange ${:correct_when} 1 end]
-    return [expr {${:value} in $values}]
+    if {[string match "*lower*" [lindex ${:correct_when} 1]]} {
+      set value [string tolower $value]
+      set words [lrange ${:correct_when} 2 end]
+    } else {
+      set words [lrange ${:correct_when} 1 end]      
+    }
+    return [expr {${:value} in $words}]
   }
   FormField instproc answer_check=match {} {
     return [string match [lindex ${:correct_when} 1] ${:value}]
@@ -3613,7 +3618,7 @@
     foreach v ${:value} {
       dict incr :result_statistics $v
     }
-    ns_log notice "### answer ${:answer} value ${:value} correction ${:correction} "
+    #ns_log notice "${:name} ### answer ${:answer} value ${:value} correction ${:correction} "
     #ns_log notice [:serialize]
   }