diff --git a/third_party/lisp/mime4cl/mime.lisp b/third_party/lisp/mime4cl/mime.lisp
index 788251c37..b3c10d797 100644
--- a/third_party/lisp/mime4cl/mime.lisp
+++ b/third_party/lisp/mime4cl/mime.lisp
@@ -761,12 +761,12 @@ returns a MIME-MESSAGE object."
   (with-open-file (in msg :element-type '(unsigned-byte 8))
     (mime-message in)))
 
+(defmethod mime-message ((msg stream))
+  (mime-message (make-flexi-stream msg)))
+
 (defmethod mime-message ((msg flexi-stream))
   (read-mime-message msg))
 
-(defmethod mime-message ((msg stream))
-  (read-mime-message (make-flexi-stream msg)))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (defgeneric mime-part (object)