From 330cd32e9ec75c8dbf285c0f53ea65374e231e29 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 8 Apr 2001 02:44:04 +0000
Subject: [PATCH] .

original commit: c1cab34ebe49c909ed5899b1226ef6e879ab7d01
---
 collects/mzlib/thread.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.ss
index 32b0919..3a0528d 100644
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@@ -167,7 +167,7 @@
 
   (define merge-input
     (case-lambda
-     [(a b) (merge-input a b #f)]
+     [(a b) (merge-input a b 4096)]
      [(a b limit)
       (or (input-port? a)
 	  (raise-type-error 'merge-input "input-port" a))