diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el
index b4abdcf..0fec09b 100644
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@@ -3759,12 +3759,12 @@ FUTURE-LIMIT in a list."
   (cl-flet
       ((has-date-p
         (date headline)
-        (-when-let (sched (-some->> (org-ml-headline-get-planning headline)
-                            (org-ml-get-property :scheduled)
-                            (org-ml-timestamp-get-start-time)
-                            (org-x-dag-datetime-split)
-                            (car)
-                            (org-x-dag-date-to-absolute)))
+        (print (org-ml-headline-get-planning headline))
+        (-when-let (sched (-some--> (org-ml-headline-get-planning headline)
+                            (plist-get it :scheduled)
+                            (org-x-dag-datetime-split it)
+                            (car it)
+                            (org-x-dag-date-to-absolute it)))
           (= sched date))))
     (--find (has-date-p date it) headlines)))