1 files changed, 1 insertions, 1 deletions
diff --git a/src/main.scm b/src/main.scm
index efc4e897..408b9de0 100755
--- a/src/main.scm
+++ b/src/main.scm
@@ -15,7 +15,7 @@
 
 
   (format (current-error-port) "Parsing ~s~%" (cadr args))
-  (let ((cal (read-vcalendar (cadr args))))
+  (let ((cal (read-tree (cadr args))))
     (format #t "cal = ~a~%" cal)
     (format (current-error-port) "~a events~%" (length cal)))