diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index af5fab2cab1..d80cbbd6317 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2001-09-29  Eli Zaretskii  <eliz@is.elta.co.il>
+
+	* play/snake.el (snake-score-file): Use temporary-file-directory
+	instead of a literal "/tmp".  Suggested by Robert
+	<robert@chezmarshall.freeserve.co.uk>.
+
+	* play/tetris.el (tetris-score-file): Ditto.
+
 2001-09-28  Eli Zaretskii  <eliz@is.elta.co.il>
 
 	* apropos.el (apropos-print): Make the directions inserted at the
diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index f294676faf1..37b544f1976 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -102,7 +102,7 @@ Element 0 is ignored.")
 (defvar tetris-score-y (+ tetris-next-y 6)
   "Y position of score.")
 
-(defvar tetris-score-file "/tmp/tetris-scores"
+(defvar tetris-score-file (concat temporary-file-directory "tetris-scores")
 ;; anybody with a well-connected server want to host this?
 ;(defvar tetris-score-file "/anonymous@ftp.pgt.com:/pub/cgw/tetris-scores"
   "File for holding high scores.")