Index: /branches/working-0711/ccl/level-1/linux-files.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 12968)
+++ /branches/working-0711/ccl/level-1/linux-files.lisp	(revision 12969)
@@ -199,5 +199,10 @@
   (native-to-pathname
      #-windows-target (get-foreign-namestring (#_tmpnam (%null-ptr)))
-     #+windows-target (temp-file-name "ccl")))
+     #+windows-target (rlet ((buffer (:array :wchar_t #.#$MAX_PATH)))
+                        (#_GetTempPathW #$MAX_PATH buffer)
+                        (with-filename-cstrs ((c-prefix "ccl")) 
+                            (#_GetTempFileNameW buffer c-prefix 0 buffer)
+                              (#_DeleteFileW buffer)
+                                (%get-native-utf-16-cstring buffer)))))
 
 (defun current-directory-name ()