1 files changed, 3 insertions, 3 deletions
diff --git a/main.scm b/main.scm
index 930535bc..dd45d68b 100755
--- a/main.scm
+++ b/main.scm
@@ -27,7 +27,7 @@
 (define (main args)
   (define path
     (if (null? (cdr (command-line)))
-        "testcal/d1-b.ics"
+        "testcal/repeating-event.ics"
         (cadr (command-line))))
 
   (define cal (make-vcomponent path))
@@ -38,8 +38,8 @@
                       time<? (extract "DTSTART"))
                (lambda (ev) (format #t "~a | ~a~%"
                                (let ((start (get-attr ev "DTSTART")))
-                                 (color-if (date-today? start) STR-YELLOW
-                                           (date->string (time-utc->date start) "~1 ~H:~M")))
+                                 (color-if (today? start) STR-YELLOW
+                                           (time->string start "~1 ~H:~M")))
                                (get-attr ev "SUMMARY")))))