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

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

        (unless (= start end)
          (cons start end))))))

(defun intero-buffer-file-name (&optional buffer)
  "Return buffer-file-name stripped of any text properties."
  (substring-no-properties (buffer-file-name buffer)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Query/commands

