Index: openacs-4/packages/calendar/www/view-month-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-month-display.tcl,v
diff -u -N -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/calendar/www/view-month-display.tcl	28 Sep 2016 09:38:53 -0000	1.26.2.2
+++ openacs-4/packages/calendar/www/view-month-display.tcl	14 Feb 2017 09:02:55 -0000	1.26.2.3
@@ -30,9 +30,9 @@
 }
 
 set date_list  [dt_ansi_to_list $date]
-set this_year  [dt_trim_leading_zeros [lindex $date_list 0]]
-set this_month [dt_trim_leading_zeros [lindex $date_list 1]]
-set this_day   [dt_trim_leading_zeros [lindex $date_list 2]]
+set this_year  [util::trim_leading_zeros [lindex $date_list 0]]
+set this_month [util::trim_leading_zeros [lindex $date_list 1]]
+set this_day   [util::trim_leading_zeros [lindex $date_list 2]]
 
 set month_string [lindex [dt_month_names] $this_month-1]