Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.39.2.8 -r1.39.2.9
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	27 Jan 2023 15:37:21 -0000	1.39.2.8
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	9 Feb 2023 15:22:43 -0000	1.39.2.9
@@ -357,12 +357,18 @@
     }]]
 }
 
-ad_proc -public calendar::adjust_date {
+ad_proc -deprecated calendar::adjust_date {
     {-date ""}
     {-julian_date ""}
 } {
     @return the date if it is provided. Otherwise, the julian date in ANSI
             format, if provided, or the system date.
+
+    DEPRECATED: this proc implements a trivial defaulting logic that
+                can be inlined just as well.
+
+    @see dt_sysdate
+    @see dt_julian_to_ansi
 } {
     if {$date eq ""} {
         if {$julian_date ne ""} {
Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.41.2.15 -r1.41.2.16
--- openacs-4/packages/calendar/www/cal-item-new.tcl	27 Jan 2023 13:14:22 -0000	1.41.2.15
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	9 Feb 2023 15:22:43 -0000	1.41.2.16
@@ -23,7 +23,13 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-set date [calendar::adjust_date -date $date -julian_date $julian_date]
+if {$date eq ""} {
+    if {$julian_date ne ""} {
+        set date [dt_julian_to_ansi $julian_date]
+    } else {
+        set date [dt_sysdate]
+    }
+}
 
 set ansi_date $date
 set calendar_list [calendar::calendar_list]
Index: openacs-4/packages/calendar/www/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view.tcl,v
diff -u -r1.32.2.6 -r1.32.2.7
--- openacs-4/packages/calendar/www/view.tcl	15 Dec 2022 14:34:04 -0000	1.32.2.6
+++ openacs-4/packages/calendar/www/view.tcl	9 Feb 2023 15:22:43 -0000	1.32.2.7
@@ -38,7 +38,9 @@
 
 set show_calendar_name_p [parameter::get -parameter Show_Calendar_Name_p -default 1]
 
-set date [calendar::adjust_date -date $date]
+if {$date eq ""} {
+    set date [dt_sysdate]
+}
 
 if {$view eq "list"} {
     if {$start_date eq ""} {