Index: openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl,v
diff -u -r1.18.2.7 -r1.18.2.8
--- openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl	11 Sep 2016 00:22:29 -0000	1.18.2.7
+++ openacs-4/packages/xowiki/www/portlets/weblog-mini-calendar.tcl	14 Feb 2017 08:38:17 -0000	1.18.2.8
@@ -34,12 +34,12 @@
 set next_mon  [clock scan "1 month" -base $now]
 
 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_month     [lindex $months_list $curr_month_idx ]
 
 set first_day_of_week [lc_get firstdayofweek]