Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v diff -u -r1.24.2.2 -r1.24.2.3 --- openacs-4/packages/acs-lang/tcl/localization-procs.tcl 4 Feb 2017 14:09:50 -0000 1.24.2.2 +++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl 9 Feb 2017 17:18:01 -0000 1.24.2.3 @@ -329,7 +329,8 @@ error "Invalid date: $datetime" } } - + set lc_time_year [dt_trim_leading_zeros $lc_time_year] + set a [expr {(14 - $lc_time_month) / 12}] set y [expr {$lc_time_year - $a}] set m [expr {$lc_time_month + 12*$a - 2}]