diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 6528ac3fb7d..35198e79e73 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -416,7 +416,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
 				       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(load \""
-					    file-name
+					    (file-local-name file-name)
 					    "\")\n")))
 
 (defun scheme-compile-file (file-name)
@@ -430,7 +430,7 @@ in the next one.")
   (setq scheme-prev-l/c-dir/file (cons (file-name-directory    file-name)
 				       (file-name-nondirectory file-name)))
   (comint-send-string (scheme-proc) (concat "(compile-file \""
-					    file-name
+					    (file-local-name file-name)
 					    "\")\n")))