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.239.2.26 -r1.239.2.27
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Feb 2015 09:17:12 -0000	1.239.2.26
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	9 Feb 2015 09:30:02 -0000	1.239.2.27
@@ -3187,6 +3187,25 @@
     }
   }
 
+  CompoundField instproc pretty_value {v} {
+    #
+    # Typically, subtypes of CompoundFields should define their own
+    # "pretty_value". This is a simple renderer that provides a
+    # default behavior.
+    #
+    set ff [dict create {*}$v]
+    set html "<ul class='CompoundField'>\n"
+    foreach c [my components] {
+      set componentName [$c set name]
+      if {[dict exists $ff $componentName]} {
+        append html "<li><span class='name'>$componentName:</span> " \
+            "[$c pretty_value [dict get $ff $componentName]]</li>\n"
+      }
+    }
+    append html "</ul>\n"
+    return $html
+  }
+  
   CompoundField instproc has_instance_variable {var value} {
     set r [next]
     if {$r} {return 1}
Index: openacs-4/packages/xowiki/tcl/repeat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/repeat-procs.tcl,v
diff -u -r1.2.2.5 -r1.2.2.6
--- openacs-4/packages/xowiki/tcl/repeat-procs.tcl	29 Jan 2015 12:35:54 -0000	1.2.2.5
+++ openacs-4/packages/xowiki/tcl/repeat-procs.tcl	9 Feb 2015 09:30:02 -0000	1.2.2.6
@@ -201,6 +201,21 @@
     return ""
   }
 
+  repeatContainer instproc pretty_value {v} {
+    #
+    # Simple renderer for repeated values
+    #
+    set ff [dict create {*}$v]
+    set html "<ol class='repeatContainer'>\n"
+    foreach c [lrange [my components] 1 [my count_values [my value]]] {
+      if {[dict exists $ff [$c set name]]} {
+        append html "<li>[$c pretty_value [dict get $ff [$c set name]]]</li>\n"
+      }
+    }
+    append html "</ol>\n"
+    return $html
+  }
+
 }
 
 #