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.53 -r1.54
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	31 Jan 2008 19:19:26 -0000	1.53
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	10 Mar 2008 13:16:02 -0000	1.54
@@ -336,6 +336,10 @@
     return $v
   }
 
+  FormField instproc value_if_nothing_is_returned_from_from {default} {
+    return $default
+  }
+
   FormField instproc pretty_value {v} {
     if {[my exists options]} {
       foreach o [my set options] {
@@ -1135,6 +1139,9 @@
   Class FormField::boolean -superclass FormField::radio -parameter {
     {default t}
   }
+  FormField::boolean instproc value_if_nothing_is_returned_from_from {default} {
+    return f
+  }
   FormField::boolean instproc initialize {} {
     # should be with cvs head message catalogs:
     # my options {{#acs-kernel.common_No# f} {#acs-kernel.common_Yes# t}}