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]