From b98117e0b473fcd7358e425efbf55280235b27f8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 10 Sep 2004 00:41:21 +0000
Subject: [PATCH] .

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

diff --git a/collects/mzlib/string.ss b/collects/mzlib/string.ss
index dbe8609..af32376 100644
--- a/collects/mzlib/string.ss
+++ b/collects/mzlib/string.ss
@@ -251,7 +251,7 @@
 					     (make-output-port
 					      'counter
 					      always-evt
-					      (lambda (s start end flush?)
+					      (lambda (s start end flush? breakable?)
 						(let ([c (- end start)])
 						  (set! discarded (+ c discarded))
 						  c))