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.6 -r1.7
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	2 Jul 2007 11:45:30 -0000	1.6
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	3 Jul 2007 10:22:32 -0000	1.7
@@ -33,9 +33,8 @@
     my config_from_spec [my spec]
   }
 
-  FormField instproc validate {value obj} {
-    my instvar name required
-    my set value $value
+  FormField instproc validate {obj} {
+    my instvar name required value
     if {$required && $value eq ""} {
       my instvar label
       return [_ acs-templating.Element_is_required]
@@ -265,7 +264,7 @@
       ::html::select $atts {
         foreach {name value} [my options] {
           set atts [list value $value]
-          #my msg "lsearch [my value] $value ==> [lsearch [my value] $value]"
+          #my msg "lsearch {[my value]} $value ==> [lsearch [my value] $value]"
           if {[lsearch [my value] $value] > -1} {
             lappend atts selected on
           }