1 files changed, 2 insertions, 1 deletions

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 02c32e4b70e..ef1a25f591a 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -316,7 +316,8 @@ to keep: LEN chars starting BEG chars from the beginning."
 ;;; from ange-ftp.
 
 (defvar jka-compr-temp-name-template
-  "/tmp/jka-com"
+  (expand-file-name "jka-com"
+                    (or (getenv "TMPDIR") "/tmp/"))
   "Prefix added to all temp files created by jka-compr.
 There should be no more than seven characters after the final `/'")