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 -N -r1.252 -r1.253
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	21 Oct 2017 16:41:35 -0000	1.252
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	15 Dec 2017 15:40:49 -0000	1.253
@@ -3308,6 +3308,31 @@
     }
   }
 
+  CompoundField instproc object args {
+    set l [llength $args]
+    switch $l {
+      0 {
+        #
+        # Called without args, return the current value
+        #
+        return ${:object}
+      }
+      1 {
+        #
+        # Called with a single value, set object for all components
+        #
+        foreach c [:components] {
+          $c object [lindex $args 0]
+        }
+
+        set :object [lindex $args 0]
+      }
+      default {
+        error "wrong number of arguments"
+      }
+    }
+  }
+
   CompoundField instproc validate {obj} {
     # Delegate validate to the components. If a validation of a
     # component fails, report the error message back.