diff --git a/org-ql.el b/org-ql.el
index b1d5f76..02e2a76 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -47,7 +47,7 @@ buffer (the default is to widen and search the entire buffer)."
        (t (user-error "SORT must be a function or a list of methods (see documentation)")))))
 
 (defmacro org-ql--fmap (fns &rest body)
-  (declare (indent defun))
+  (declare (indent defun) (debug (listp body)))
   `(cl-letf ,(cl-loop for (fn target) in fns
                       collect `((symbol-function ',fn)
                                 (symbol-function ,target)))