diff --git a/org-ql-view.el b/org-ql-view.el
index d6cd536..7739ea7 100644
--- a/org-ql-view.el
+++ b/org-ql-view.el
@@ -841,14 +841,14 @@ current buffer.  Otherwise BUFFERS-FILES is returned unchanged."
                              list)))
     ;; TODO: Test this more exhaustively.
     (pcase buffers-files
-      ((pred listp) (pcase (expand-files buffers-files)
-                      ((or (pred (seq-set-equal-p (mapcar #'expand-file-name (org-agenda-files))))
-                           (pred (seq-set-equal-p (mapcar #'expand-file-name org-agenda-files))))
-                       "org-agenda-files")
-                      ((pred (seq-set-equal-p (org-ql-search-directories-files)))
-                       "org-directory")
-                      (_ (let ((print-length nil))
-                           (concat "'" (prin1-to-string buffers-files))))))
+      ((pred listp)
+       (pcase (expand-files buffers-files)
+         ((pred (seq-set-equal-p (mapcar #'expand-file-name (org-agenda-files))))
+          "org-agenda-files")
+         ((pred (seq-set-equal-p (org-ql-search-directories-files)))
+          "org-directory")
+         (_ (let ((print-length nil))
+              (concat "'" (prin1-to-string buffers-files))))))
       ((pred (equal (current-buffer)))
        "buffer")
       ((or 'org-agenda-files '(function org-agenda-files))