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.154 -r1.155
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Jun 2009 06:42:58 -0000	1.154
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	11 Sep 2009 17:02:19 -0000	1.155
@@ -517,6 +517,13 @@
   FormField instproc answer_check=match {} {
     return [string match [lindex [my correct_when] 1] [my value]]
   }
+  FormField instproc answer_check=answer_words {} {
+    set value [regsub -all { +} [my value] " "]
+    if {[string match "*lower*" [lindex [my correct_when] 1]]} {
+      set value [string tolower $value]
+    }
+    return [expr {$value eq [my answer]}]
+  }
 
   FormField instproc answer_is_correct {} {
     #my msg "[my name] ([my info class]): value=[my value], answer=[expr {[my exists answer]?[my set answer]:{NONE}}]"