diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el
index 50553b8..67eb576 100644
--- a/site-lisp/db-org.el
+++ b/site-lisp/db-org.el
@@ -771,7 +771,7 @@ PARAMS is a property list of the following parameters:
                     ((and (pred stringp) arg)
                      #'(lambda (x) (string-match arg x)))
                     ((and (pred functionp) fun) fun)
-                    (_ (user-error "Invalid argument to :skip-matches: %s" arg))))
+                    (arg (user-error "Invalid argument to :skip-matches: %s" arg))))
          (work-hours (or (plist-get params :work-hours)
                          "8:00"))
          date-range)