diff --git a/src/tests/ecl-tests.lisp b/src/tests/ecl-tests.lisp
index b81b21df8..5aba4c0b6 100644
--- a/src/tests/ecl-tests.lisp
+++ b/src/tests/ecl-tests.lisp
@@ -133,5 +133,5 @@ as a second value."
       `(let ((,var (ext:mkstemp "ecl-tests")))
          (with-open-file (,stream ,var :direction :output)
            (format ,stream ,string))
-         ,@body
-         (delete-file ,var)))))
+         (multiple-value-prog1 (progn ,@body)
+           (delete-file ,var))))))