       ;; by the copy above.
       (intero-async-call
        'backend
-       (concat ":l " temp-file)
+       (concat ":load " temp-file)
        (list :cont cont
              :file-buffer file-buffer
              :checker checker)

        (message "Reloading ...")
        (intero-async-call
         'backend
         ":l DevelMain"
         (current-buffer)
         (lambda (buffer reply)
           (if (string-match "^OK, modules loaded" reply)

                "\n$" ""
                (intero-blocking-call
                 'backend
                 (format ":info %s" thing))))
      optimistic-result)))

(defun intero-get-loc-at (beg end)
