Index: openacs-4/packages/xowiki/lib/portlets/weblog-mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/lib/portlets/weblog-mini-calendar.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/xowiki/lib/portlets/weblog-mini-calendar.tcl	19 Aug 2022 19:35:17 -0000	1.1.2.1
+++ openacs-4/packages/xowiki/lib/portlets/weblog-mini-calendar.tcl	17 Jan 2023 10:33:56 -0000	1.1.2.2
@@ -68,7 +68,7 @@
         and ci.item_id != :including_item_id \
         and ci.publish_status <> 'production' "
 
-xo::dc foreach entries_this_month "select count(ci.item_id) as c,
+::xo::dc foreach entries_this_month "select count(ci.item_id) as c,
         [::xo::dc date_trunc day p.publish_date] as d \
         $innersql
         and [::xo::dc date_trunc_expression month p.publish_date :date_reference] \
@@ -87,7 +87,7 @@
 #
 # Compute the available time range
 #
-set dates [db_list_of_lists get_dates "select min([::xo::dc date_trunc day p.publish_date]),max([::xo::dc date_trunc day p.publish_date]) $innersql"]
+set dates [::xo::dc list_of_lists get_dates "select min([::xo::dc date_trunc day p.publish_date]),max([::xo::dc date_trunc day p.publish_date]) $innersql"]
 set earliest_date [::xo::db::tcl_date [lindex $dates 0 0] _]
 set latest_date   [::xo::db::tcl_date [lindex $dates 0 end] _]