Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 14550)
+++ /trunk/source/level-1/linux-files.lisp	(revision 14551)
@@ -1164,5 +1164,6 @@
        (ecase direction
          (:input
-          (with-cstrs ((template "/tmp/lisp-tempXXXXXX"))
+          (with-cstrs ((template #-android-target "/tmp/lisp-tempXXXXXX"
+                                 #+android-target "/data/local/tmp/lisp-tempXXXXXX"))
             (let* ((fd (#_mkstemp template)))
               (if (< fd 0)