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.227 -r1.228
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	19 Mar 2013 18:43:40 -0000	1.227
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	19 Mar 2013 19:07:23 -0000	1.228
@@ -141,6 +141,11 @@
   #     return [list "input" $atts {}]
   # }
 
+  FormField instproc same_value {v1 v2} {
+    if {$v1 eq $v2} {return 1}
+    return 0
+  }
+
   FormField instproc validation_check {validator_method value} {
     return [my $validator_method $value]
   }
@@ -2786,6 +2791,14 @@
     }
   }
 
+  CompoundField instproc same_value {v1 v2} {
+    if {$v1 eq $v2} {return 1}
+    foreach {n1 value1} $v1 {n2 value2} $v2 {
+      if {![my same_value $value1 $value2]} { return 0 }
+    }
+    return 1
+  }
+
   CompoundField instproc value {args} {
     if {[llength $args] == 0} {
       set v [my get_compound_value]