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]