 (defun intero-repl-load ()
   "Load the current file in the REPL."
   (interactive)
-  (let ((file (buffer-file-name))
+  (let ((file (intero-buffer-file-name))
         (repl-buffer (intero-repl-buffer)))
     (with-current-buffer repl-buffer
       (comint-send-string

   (intero-blocking-call
    'backend
    (format ":loc-at %S %d %d %d %d %S"
            (buffer-file-name)
            (save-excursion (goto-char beg)
                            (line-number-at-pos))
            (save-excursion (goto-char beg)

   (intero-blocking-call
    'backend
    (format ":uses %S %d %d %d %d %S"
            (intero-buffer-file-name)
            (save-excursion (goto-char beg)
                            (line-number-at-pos))
            (save-excursion (goto-char beg)
