Index: openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl,v
diff -u -r1.1.2.70 -r1.1.2.71
--- openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl	2 Mar 2022 13:18:42 -0000	1.1.2.70
+++ openacs-4/packages/xowiki/tcl/test/xowiki-test-procs.tcl	2 Mar 2022 13:57:18 -0000	1.1.2.71
@@ -745,6 +745,8 @@
                     date.DD 1
                     date.month 1
                     date.YYYY 2022
+
+                    date2.YYYY 2021
                 }]
 
             aa_log "Check content of the edited instance"
@@ -766,6 +768,9 @@
                     aa_true "input selected '[$v getAttribute selected]'" \
                         {[$v getAttribute selected] eq "selected"}
                 }
+
+                set input4 [$root getElementById $id_part.date2.YYYY]
+                aa_true "input4 (year element of date2)" {[$input4 getAttribute value] eq "2011"}
             }