From 6e29ebae8331f4a94ef474fad1e355fc8df5b260 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Fri, 8 Oct 2004 09:25:32 +0000
Subject: [PATCH] .

original commit: 37109b760398607c3a2f69218a3d7dda3b061d03
---
 collects/mzlib/port.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index 2eddbce..9920edb 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -74,7 +74,8 @@
        (unless (output-port? dest)
 	 (raise-type-error 'copy-port "output-port" dest)))
      (cons dest dests))
-    (let ([s (make-bytes 4096)])
+    (let ([dests (cons dest dests)]
+	  [s (make-bytes 4096)])
       (let loop ()
 	(let ([c (read-bytes-avail! s src)])
 	  (unless (eof-object? c)
@@ -84,7 +85,7 @@
 		 (unless (= start c)
 		   (let ([c2 (write-bytes-avail s dest start c)])
 		     (loop (+ start c2))))))
-	     (cons dest dests))
+	     dests)
 	    (loop))))))
   
   (define merge-input