From 78681540ec0eee1059da459f8c8727539637a2fb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 23 Jul 2002 13:35:56 +0000
Subject: [PATCH] .

original commit: eaf51fa829fef81bbe83449fca093aa19cd44799
---
 collects/net/qp-unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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