diff --git a/lisp/ob-screen.el b/lisp/ob-screen.el
index 26719cf0d..1d4ccdddf 100644
--- a/lisp/ob-screen.el
+++ b/lisp/ob-screen.el
@@ -121,7 +121,7 @@ The terminal should shortly flicker."
   (interactive)
   (let* ((session "org-babel-testing")
          (random-string (format "%s" (random 99999)))
-         (tmpfile "/tmp/org-babel-screen.test")
+         (tmpfile (org-babel-temp-file "ob-screen-test-"))
          (body (concat "echo '" random-string "' > " tmpfile "\nexit\n"))
          process tmp-string)
     (org-babel-execute:screen body org-babel-default-header-args:screen)