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 ""} {