diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp
index 3cdac4b26..e8d9d5e8b 100644
--- a/third_party/lisp/mime4cl/mime.lisp
+++ b/third_party/lisp/mime4cl/mime.lisp
@@ -880,10 +880,7 @@ returns a MIME-MESSAGE object."
           do (write-char (code-char byte) out)))
       (pathname
        (with-open-file (in body)
-         (loop
-            for c = (read-char in nil)
-            while c
-            do (write-char c out)))))))
+         (redirect-stream in out))))))
 
 (defmethod print-mime-part ((part mime-message) (out stream))
   (flet ((hdr (name)