Index: openacs-4/packages/acs-datetime/acs-datetime.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/acs-datetime.info,v
diff -u -r1.20.2.5 -r1.20.2.6
--- openacs-4/packages/acs-datetime/acs-datetime.info	1 Dec 2015 13:56:10 -0000	1.20.2.5
+++ openacs-4/packages/acs-datetime/acs-datetime.info	14 Feb 2017 08:30:57 -0000	1.20.2.6
@@ -7,17 +7,18 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
     
-    <version name="5.9.0" url="http://openacs.org/apms/acs-datetime-5.9.0.apm">
+    <version name="5.9.1d1" url="http://openacs.org/apms/acs-datetime-5.9.1d1.apm">
         <owner url="http://openacs.org">OpenACS</owner>
         <summary>An API for date and time functions</summary>
-        <release-date>2015-10-04</release-date>
+        <release-date>2017-02-14</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
         <description format="text/html">Note: this version of the package requires acs-event(s) for a helper function. This requirement may go away in the future. </description>
         <maturity>2</maturity>
 
-        <provides url="acs-datetime" version="5.9.0"/>
+        <provides url="acs-datetime" version="5.9.1d1"/>
 	<requires url="acs-kernel" version="5.9.0"/>
         <requires url="acs-events" version="0.6d2"/>
+	<requires url="acs-tcl" version="5.9.1d15"/>
         
         <requires url="acs-templating" version="5.9.0"/>
 
Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl,v
diff -u -r1.26.2.5 -r1.26.2.6
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	25 Oct 2016 07:08:52 -0000	1.26.2.5
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs.tcl	14 Feb 2017 08:30:57 -0000	1.26.2.6
@@ -672,7 +672,7 @@
 
 	set months_list [dt_month_names]
 	set now         [clock scan $date]
-	set curr_month  [expr {[dt_trim_leading_zeros [clock format $now -format "%m"]] - 1}]
+	set curr_month  [expr {[util::trim_leading_zeros [clock format $now -format "%m"]] - 1}]
 
 	for {set i 0} {$i < 12} {incr i} {
 
@@ -914,9 +914,9 @@
 
     # get year, month, day
     set date_list [dt_ansi_to_list $the_date]
-    set year [dt_trim_leading_zeros [lindex $date_list 0]]
-    set month [dt_trim_leading_zeros [lindex $date_list 1]]
-    set day [dt_trim_leading_zeros [lindex $date_list 2]]
+    set year [util::trim_leading_zeros [lindex $date_list 0]]
+    set month [util::trim_leading_zeros [lindex $date_list 1]]
+    set day [util::trim_leading_zeros [lindex $date_list 2]]
 
     # We put all the data into dt_info_set and return it later
     set dt_info_set [ns_set create]
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 -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	9 Feb 2017 17:54:40 -0000	1.13.2.3
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.tcl	14 Feb 2017 08:30:57 -0000	1.13.2.4
@@ -74,9 +74,9 @@
 } {
     set date_list [dt_ansi_to_list $ansi]
 
-    set year [dt_trim_leading_zeros [lindex $date_list 0]]
-    set month [dt_trim_leading_zeros [lindex $date_list 1]]
-    set day [dt_trim_leading_zeros [lindex $date_list 2]]
+    set year [util::trim_leading_zeros [lindex $date_list 0]]
+    set month [util::trim_leading_zeros [lindex $date_list 1]]
+    set day [util::trim_leading_zeros [lindex $date_list 2]]
     
     return [dt_ansi_to_julian $year $month $day $era]
 }
@@ -103,7 +103,7 @@
         # 1582-10-04; 1582-10-15)
         set julian_date [dt_ansi_to_julian 1582 10 15 CE]
     } else {
-        set year [dt_trim_leading_zeros $year]
+        set year [util::trim_leading_zeros $year]
 
         if {$era eq "BCE"} {
             set year [expr {-$year + 1}]
@@ -194,7 +194,7 @@
     }
 
     foreach item [split [clock format [clock scan $ansi_date] -format "%Y %m %d %H %M %S"] " "] { 
-	lappend date_info [dt_trim_leading_zeros $item]
+	lappend date_info [util::trim_leading_zeros $item]
     }
     
     return $date_info
@@ -482,7 +482,7 @@
     }
 
     if {$default ne ""} {
-	set default [dt_trim_leading_zeros $default]
+	set default [util::trim_leading_zeros $default]
     }
 
     set input "<option value=_undef>--\n"
@@ -515,7 +515,7 @@
         if {$with_leading_zeros} {
             return [dt_export_value $name $hidden_value]
         } else {
-            return [dt_export_value $name [dt_trim_leading_zeros $hidden_value]]
+            return [dt_export_value $name [util::trim_leading_zeros $hidden_value]]
         }
     }
 
@@ -538,21 +538,15 @@
     return [expr {[clock scan $end] - [clock scan $start]}]
 }
 
-ad_proc -private dt_trim_leading_zeros { 
+ad_proc -private -deprecated dt_trim_leading_zeros { 
     string 
 } {
     Returns a string w/ leading zeros trimmed.
     Used to get around Tcl interpreter problems w/ thinking leading
     zeros are octal. We could just use validate_integer, but it runs
     one extra regexp that we don't need to run. 
 } {
-    set string [string trimleft $string 0]
-
-    if {$string eq ""} {
-        return "0"
-    }
-
-    return $string
+    return [util::trim_leading_zeros $string]
 }
 
 ad_proc -private dt_export_value {