1 files changed, 3 insertions, 1 deletions
diff --git a/module/main.scm b/module/main.scm
index 4e75bbf9..2b0fde23 100755
--- a/module/main.scm
+++ b/module/main.scm
@@ -46,7 +46,9 @@ exec guile -e main -s $0 "$@"
 ;; Given as a sepparate function from main to ease debugging.
 (define* (init proc #:key (calendar-files (calendar-files)))
   (define calendars (map make-vcomponent calendar-files))
-  (define events (concatenate (map (cut children <> 'VEVENT) calendars)))
+  (define events (concatenate (map (lambda (cal) (filter (lambda (o) (eq? 'VEVENT (type o)))
+                                                    (children cal)))
+                                   calendars)))
 
   (let* ((repeating regular (partition repeating? events)))