Index: openacs-4/packages/calendar/www/mini-calendar.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/mini-calendar.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/calendar/www/mini-calendar.tcl	13 Aug 2003 16:08:33 -0000	1.2
+++ openacs-4/packages/calendar/www/mini-calendar.tcl	3 Sep 2003 11:51:02 -0000	1.3
@@ -23,7 +23,7 @@
 if {[catch {
     dt_get_info $date
 } errmsg]} {
-    set date "[lindex $date 0]-[lindex $date 1]-[lindex $date 2]"
+    set date [dt_sysdate]
     dt_get_info $date
 }