Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.63.2.15 -r1.63.2.16
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	19 Aug 2021 16:19:36 -0000	1.63.2.15
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	5 Oct 2021 13:42:23 -0000	1.63.2.16
@@ -1747,7 +1747,7 @@
             set invalid_date_p [catch {
                 set max [clock scan $element(max) -format "%Y-%m-%d"]
             }]
-            if {$invalid_date_p || $max > $supplied_date} {
+            if {$invalid_date_p || $supplied_date > $max} {
                 lappend message [_ acs-templating.Date_must_be_before_max_date \
                                      [list max_date $element(max)]]
                 return 0
@@ -1925,7 +1925,7 @@
                     break
                 }
             }
-            if {$invalid_time_p || $max > $supplied_time} {
+            if {$invalid_time_p || $supplied_time > $max} {
                 lappend message [_ acs-templating.Time_must_be_before_max_time \
                                      [list max_time $element(max)]]
                 return 0