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}]