2 files changed, 2 insertions, 3 deletions
diff --git a/elisp/geiser-compile.el b/elisp/geiser-compile.el
index 26aad16..e22907f 100644
--- a/elisp/geiser-compile.el
+++ b/elisp/geiser-compile.el
@@ -59,7 +59,7 @@
 (defun geiser-load-file (path)
   "Load Scheme file."
   (interactive "FScheme file: ")
-  (geiser-compile--file-op path nil "Loading"))
+  (geiser-compile--file-op (expand-file-name path) nil "Loading"))
 
 (defun geiser-load-current-buffer ()
   "Load current Scheme file."
diff --git a/elisp/geiser-guile.el b/elisp/geiser-guile.el
index 0b71edf..dacca55 100644
--- a/elisp/geiser-guile.el
+++ b/elisp/geiser-guile.el
@@ -158,8 +158,7 @@ This function uses `geiser-guile-init-file' if it exists."
                             (or (car args) "#f")
                             (geiser-guile--linearize-args (cdr args))
                             (if (cddr args) "" " ()")))
-    ((load-file compile-file)
-     (format ",geiser-load-file %s" (expand-file-name (car args))))
+    ((load-file compile-file) (format ",geiser-load-file %s" (car args)))
     ((no-values) ",geiser-no-values")
     (t (format "ge:%s (%s)" proc (geiser-guile--linearize-args args)))))