From e952fcff8a58b533c17618887c3e732b514a23d8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 4 Jul 2004 21:48:39 +0000
Subject: [PATCH] .

original commit: 41e8ef18b5348fea14fdd56d2b4bf1e004e5c6a5
---
 collects/net/smtp-unit.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/net/smtp-unit.ss b/collects/net/smtp-unit.ss
index 5414c19..98ae529 100644
--- a/collects/net/smtp-unit.ss
+++ b/collects/net/smtp-unit.ss
@@ -47,7 +47,9 @@
 		(and (bytes? l)
 		     (not (= (char->integer #\.) (bytes-ref l 0)))))
 	    l
-	    (string-append "." l)))
+	    (if (bytes? l)
+		(bytes-append #"." l)
+		(string-append "." l))))
 
       (define smtp-sending-end-of-message
 	(make-parameter void