diff --git a/src/CHANGELOG b/src/CHANGELOG
index a6fe78b5f..7f02556a8 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -96,6 +96,9 @@ ECL 8.9.0:
  - In FTYPE proclamations and declarations, the type may now be a user defined
    function type (Josh Elsasser).
 
+ - COMPILE would create an extra empty file which would not get deleted after
+   finishing compilation (Josh Elsasser).
+
 ;;; Local Variables: ***
 ;;; mode:text ***
 ;;; fill-column:79 ***
diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 8c7f7fbb8..f88fc36f4 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -662,8 +662,6 @@ the environment variable TMPDIR to a different value." template)
       (return-from compile (values nil t t))))
 
   (let*((*load-time-values* 'values) ;; Only the value is kept
-	(template (format nil "TMP:ECL~3,'0x" (incf *gazonk-counter*)))
-	(data-pathname (or (si::mkstemp template) "foo"))
 	(c-pathname (compile-file-pathname data-pathname :type :c))
 	(h-pathname (compile-file-pathname data-pathname :type :h))
 	(o-pathname (compile-file-pathname data-pathname :type :object))