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.239.2.8 -r1.239.2.9
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	14 Mar 2014 19:23:39 -0000	1.239.2.8
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Mar 2014 13:51:21 -0000	1.239.2.9
@@ -3031,14 +3031,18 @@
     return $value
   }
 
+  CompoundField instproc specs_unmodified {spec_list} {
+    expr {[my set __state] eq "after_specs"
+          && [my exists structure] && [my set structure] eq $spec_list
+        }
+  }
+
   CompoundField instproc create_components {spec_list} {
     #
     # Omit after specs for compund fields to avoid multiple
     # recreations.
     #
-    if {[my set __state] eq "after_specs"} {
-      return
-    }
+    if {[my specs_unmodified $spec_list]} return
 
     #
     # Build a component structure based on a list of specs