diff -u rfc2388.orig/rfc2388.lisp rfc2388/rfc2388.lisp
--- rfc2388.orig/rfc2388.lisp	2005-12-19 20:12:42.000000000 -0500
+++ rfc2388/rfc2388.lisp	2005-12-19 20:29:50.000000000 -0500
@@ -441,8 +441,9 @@
                                                      :direction :output
                                                      ;; external format for faithful I/O
                                                      ;; see <http://cl-cookbook.sourceforge.net/io.html#faith>
-                                                     #+(or :lispworks :allegro)
+                                                     #+(or :sbcl :lispworks :allegro)
                                                      :external-format
+                                                     #+:sbcl :latin-1
                                                      #+:lispworks '(:latin-1 :eol-style :lf)
                                                      #+:allegro (excl:crlf-base-ef :latin1))
                              (read-until-next-boundary input boundary nil out-file))
