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.108 -r1.109
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Oct 2008 10:24:35 -0000	1.108
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Oct 2008 10:28:43 -0000	1.109
@@ -492,6 +492,9 @@
     set values [lrange [my correct_when] 1 end]
     return [expr {[lsearch -exact $values $value] > -1}]
   }
+  FormField instproc answer_check=match {} {
+    return [string match [lindex [my correct_when] 1] [my value]]
+  }
 
   FormField instproc answer_is_correct {} {
     if {[my exists correct_when]} {