diff --git a/cl/khal-notify.lisp b/cl/khal-notify.lisp
index 4ef7f62..649e19a 100644
--- a/cl/khal-notify.lisp
+++ b/cl/khal-notify.lisp
@@ -25,8 +25,8 @@
 
 (defun get-calendar-dir-hash-table ()
   (let ((output (make-hash-table :test 'equal)))
-    (dolist (dir (directory #P"~/.local/share/vdirsyncer/*/*") output)
-      (unless (pathname-match-p dir #P"~/.local/share/vdirsyncer/status/*/")
+    (dolist (dir (directory #P"~/.local/share/vdirsyncer/*.*/*.*") output)
+      (unless (pathname-match-p dir #P"~/.local/share/vdirsyncer/status/*.*/")
         (let ((dir-name (car (last (pathname-directory dir)))))
           (setf (gethash dir-name output) dir))))))