diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index 67eb576..1334fd2 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -766,12 +766,12 @@ PARAMS is a property list of the following parameters:
          (org-ql-match (or (plist-get params :org-ql-match)
                            '(todo)))
          (timestamp-format "%Y-%m-%d %a %H:%M")
-         (skipper (pcase (plist-get params :skip-matches)
-                    ((pred null) #'(lambda (_) nil))
-                    ((and (pred stringp) arg)
-                     #'(lambda (x) (string-match arg x)))
-                    ((and (pred functionp) fun) fun)
-                    (arg (user-error "Invalid argument to :skip-matches: %s" arg))))
+         (skip-date-p (pcase (plist-get params :skip-matches)
+                        ((pred null) #'(lambda (_) nil))
+                        ((and (pred stringp) arg)
+                         #'(lambda (x) (string-match arg x)))
+                        ((and (pred functionp) fun) fun)
+                        (arg (user-error "Invalid argument to :skip-matches: %s" arg))))
          (work-hours (or (plist-get params :work-hours)
                          "8:00"))
          date-range)
@@ -798,7 +798,7 @@ PARAMS is a property list of the following parameters:
                                      (format "+%s" increment)
                                      nil current)
               current-formatted (format-time-string timestamp-format current))
-        (unless (funcall skipper current-formatted)
+        (unless (funcall skip-date-p current-formatted)
           (push current-formatted date-range))))
     (setq date-range (nreverse (cdr date-range)))