diff --git a/core/core-defuns.el b/core/core-defuns.el
index 6a67b7144..97b0c8403 100644
--- a/core/core-defuns.el
+++ b/core/core-defuns.el
@@ -210,7 +210,7 @@ Examples:
   (let ((dir (or dir (narf/project-root))))
       (with-current-buffer (get-buffer-create "*scratch*")
         (setq default-directory dir)
-        (setq header-line-format (concat " ∴ " dir)))))
+        (setq header-line-format '(:eval (concat " ∴ " default-directory))))))
 
 
 ;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;