diff --git a/local/lib/org-x/org-x-dag.el b/local/lib/org-x/org-x-dag.el
index a390994..7e78051 100644
--- a/local/lib/org-x/org-x-dag.el
+++ b/local/lib/org-x/org-x-dag.el
@@ -3518,7 +3518,7 @@ FUTURE-LIMIT in a list."
         (setq-local org-agenda-current-span span)
         (org-agenda--insert-overriding-header
           (with-temp-buffer
-            (insert (format "Agenda for %d-%02d-%02d: \n" y m d))
+            (insert (format "Agenda for %d-%02d-%02d\n" y m d))
             (add-text-properties (point-min) (1- (point))
                                  (list 'face 'org-agenda-structure))
             (buffer-string)))
@@ -3547,6 +3547,10 @@ FUTURE-LIMIT in a list."
       ;; files are actually needed (I think) for `org-agenda-prepare' to run
       (org-agenda-run-series name `((,@cmds) ((org-agenda-files ',files)))))))
 
+(defun org-x-dag-agenda-call-inner (buffer-name type match files settings)
+  (declare (indent 4))
+  (org-x-dag-agenda-run-series buffer-name files `((,type ,match ,settings))))
+
 (defun org-x-dag-agenda-call (buffer-name header-name type match files settings)
   (declare (indent 5))
   (let* ((n (or header-name buffer-name))
@@ -3596,7 +3600,7 @@ In the order of display
   (interactive)
   (let ((files (cons (org-x-dag->planning-file :daily)
                      (org-x-dag->action-files))))
-    (org-x-dag-agenda-call "Timeblock" nil 'agenda "" files
+    (org-x-dag-agenda-call-inner "Timeblock" 'agenda "" files
       `((org-agenda-sorting-strategy '(time-up deadline-up scheduled-up category-keep))
         (org-super-agenda-groups
          `(,(nd/org-def-super-agenda-pred "Morning routine"