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