diff --git a/collects/net/qp-unit.ss b/collects/net/qp-unit.ss
index cb362ba..b3b1e86 100644
--- a/collects/net/qp-unit.ss
+++ b/collects/net/qp-unit.ss
@@ -46,7 +46,7 @@
       (define qp-encode
         (lambda (str)
           (let ((out (open-output-string)))
-            (qp-encode-stream (open-input-string str) out)
+            (qp-encode-stream (open-input-string str) out "\r\n")
             (get-output-string out))))
       
       ;; qp-decode : string -> string