Index: openacs-4/packages/xowiki/tcl/table-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/table-widget-procs.tcl,v
diff -u -N -r1.1.2.4 -r1.1.2.5
--- openacs-4/packages/xowiki/tcl/table-widget-procs.tcl	19 Feb 2020 16:40:39 -0000	1.1.2.4
+++ openacs-4/packages/xowiki/tcl/table-widget-procs.tcl	23 Apr 2020 21:14:30 -0000	1.1.2.5
@@ -250,6 +250,22 @@
       foreach __fn $field_names form_field_obj $form_field_objs {
         $form_field_obj object $p
         set value [$p property $__fn]
+        if {$value eq ""} {
+          #
+          # In case, the plain property lookup failed, try to fetch a
+          # value from a compound form field value.
+          #
+          if {[string first . $__fn] > -1} {
+            lassign [split $__fn .] parent child
+            if {[dict exists $__ia $parent $__fn]} {
+              set value [dict get $__ia $parent $__fn]
+            } else {
+              ns_log notice "table-widget: cannot resolve <$__fn> no '<$parent> <$__fn>'\n $__ia"
+            }
+          } else {
+            ns_log notice "table-widget: no value for <$__fn> "; #[$p serialize]
+          }
+        }
         $__c set $__fn [$form_field_obj pretty_value $value]
       }
       $__c set _name [::$package_id external_name -parent_id [$p parent_id] [$p name]]