* lisp/net/tramp-sh.el (tramp-set-remote-path): Fix usage of tmpfile.

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 4fa8b3fa3f1e6148afb5e17fcb09ba46ffb078b7..dfb4b84517fecea904621764498b369f58d933af 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -3973,9 +3973,11 @@ variable PATH."
     (if (< (length command) pipe-buf)
        (tramp-send-command vec command)
       ;; Use a temporary file.
-      (setq tmpfile (tramp-make-tramp-temp-file vec))
+      (setq tmpfile
+           (tramp-make-tramp-file-name vec (tramp-make-tramp-temp-file vec)))
       (write-region command nil tmpfile)
-      (tramp-send-command vec (format ". %s" tmpfile))
+      (tramp-send-command
+       vec (format ". %s" (tramp-compat-file-local-name tmpfile)))
       (delete-file tmpfile))))
 
 ;; ------------------------------------------------------------