From f24b9140d6f74804d5599ec225717d38ca443813 Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:05:26 -0800
Subject: Import Upstream version 2c0

---
 strport.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'strport.scm')

diff --git a/strport.scm b/strport.scm
index 54d8d39..a75ab0a 100644
--- a/strport.scm
+++ b/strport.scm
@@ -33,7 +33,7 @@
 	      (cond ((eof-object? c)
 		     (set! s (string-append s (substring buf 0 i))))
 		    ((>= i 512)
-		     (set! s (string-append s buf))
+		     (set! s (string-append s buf (string c)))
 		     (loop 0))
 		    (else
 		     (string-set! buf i c)
-- 
cgit v1.2.3