Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -N -r1.21.2.5 -r1.21.2.6
--- openacs-4/packages/calendar/www/mini-calendar.tcl	4 Feb 2017 14:17:13 -0000	1.21.2.5
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	14 Feb 2017 09:02:55 -0000	1.21.2.6
@@ -80,12 +80,12 @@
 
 set now              [clock scan $date]
 set date_list        [dt_ansi_to_list $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]]
 
 set months_list      [dt_month_names]
-set curr_month_idx   [expr [dt_trim_leading_zeros [clock format $now -format "%m"]]-1]
+set curr_month_idx   [expr [util::trim_leading_zeros [clock format $now -format "%m"]]-1]
 set curr_day         [clock format $now -format "%d"]
 set curr_month       [clock format $now -format "%B"]
 set curr_year        [clock format $now -format "%Y"]