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 {