Index: openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl,v
diff -u -N -r1.13.2.1 -r1.13.2.2
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	10 Sep 2015 08:21:22 -0000	1.13.2.1
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	4 Feb 2017 13:18:22 -0000	1.13.2.2
@@ -159,19 +159,11 @@
     }
     set day [expr {floor($calc - $calc3 - floor($calc4 * 30.6001))}]
 
-    set year [expr {int($year)}]
+    set year  [expr {int($year)}]
     set month [expr {int($month)}]
-    set day [expr {int($day)}]
+    set day   [expr {int($day)}]
 
-    if {$month < 10} {
-      set month 0$month
-    }
-
-    if {$day < 10} {
-      set day 0$day
-    }
-
-    return $year-$month-$day
+    return [format %.4d $year]-[format %.2d $month]-[format %.2d $day]
 }
 
 ad_proc -public dt_ansi_to_pretty {