diff --git a/scheme/lib/smtp.scm b/scheme/lib/smtp.scm
index 0813528..71630f5 100644
--- a/scheme/lib/smtp.scm
+++ b/scheme/lib/smtp.scm
@@ -188,7 +188,7 @@
 			   (if (not (eof-object? stuff))
 			       (begin
 				 (write-data-line stuff p)
-				 (newline))))))
+				 (lp))))))
 		    
 		      (else (error "Message must be string or input-port.")))