diff --git a/emacs.el b/emacs.el
index 9e20f36..171d084 100644
--- a/emacs.el
+++ b/emacs.el
@@ -276,8 +276,9 @@ found, otherwise returns nil."
 ;;                                 my-buffer-file-last-modified-time))
 ;;                 (cdr ls))))
 
-'(setq-default header-line-format (list " "
-                                        'display-time-string))
+'(setq header-line-format (list '(:eval default-directory)
+                                       " "
+                                       'display-time-string))
 
 (defvar set-terminal-title-term-regexp ""
   "Rexexp for `set-terminal-title'.")