                         (when-let [ed (first (by-path f))]
                           (when-not (doc/check-mtime (doc/->stats f) stat)
                             (if (:dirty @ed)
-                              (active-warn ed {:header "This file has been modified."
+                              (active-warn ed {:header (str "File modified: " f)
                                                :body "This file seems to have been modified outside of Light Table. Do you want to load the latest and lose your changes?"
                                                :buttons [{:label "Reload from disk"
                                                           :action (fn []

                                              false)
                                           (object/by-tag :editor))]
                          (doseq [ed open]
                            (warn-delete ed)
                            (make-transient-dirty ed))))))

(behavior ::watched.rename

          :reaction (fn [ws del]
                      (if-let [ed (first (by-path del))]
                        (do
                          (warn-delete del ed)
                          (make-transient-dirty ed)
                          (when-let [ts (:lt.objs.tabs/tabset @ed)]
                            (object/raise ts :tab.updated)))
