diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el
index edb7d06..453f401 100644
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@@ -2961,9 +2961,11 @@ FUTURE-LIMIT in a list."
           (acc id)
           (pcase (either-from-right (org-x-dag-id->bs id) nil)
             (`(:daily :active (:sched ,sched))
-             (-when-let (dt (org-ml-timestamp-get-start-time sched))
-               (when (org-x-dag-date= sel-date dt)
-                 (add-sched acc id nil))))
+             (-if-let (dt (org-ml-timestamp-get-start-time sched))
+                 (if (org-x-dag-date= sel-date dt)
+                     (add-sched acc id nil)
+                   acc)
+               acc))
             (`(:daily :complete ,_)
              (add-sched acc id t))
             (`(:action . ,bs)