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.96 -r1.284.2.97
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Mar 2020 09:46:56 -0000	1.284.2.96
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	7 Apr 2020 07:08:56 -0000	1.284.2.97
@@ -1217,15 +1217,12 @@
     return 1
   }
 
-  CompoundField instproc value {args} {
-    if {[llength $args] == 0} {
-      set v [:get_compound_value]
-      #:msg "${:name}: reading compound value => '$v'"
-      return $v
-    } else {
-      #:msg "${:name}: setting compound value => '[lindex $args 0]'"
-      :set_compound_value [lindex $args 0]
+  CompoundField instproc value {value:optional} {
+    if {[info exists value]} {
+      #:msg "${:name}: setting compound value => '$value'"
+      :set_compound_value $value
     }
+    return [:get_compound_value]
   }
 
   CompoundField instproc object args {