.

original commit: 03e76c4d3be4e535411833f96805be225f223218
2005-04-30 14:46:17 +00:00 · 2005-04-30 14:46:17 +00:00 · 531f899a00
commit 531f899a00
parent 7c533310cc
1 changed files with 2 additions and 1 deletions
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@ -1210,7 +1210,8 @@
 			(set! buf-end (- buf-end buf-start))
 			(set! buf-start 0))
 		      (let* ([amt (bytes-length s)]
-			     [c (read-bytes-avail!* buf port buf-end (+ buf-end amt))])
+			     [c (read-bytes-avail!* buf port buf-end (min (bytes-length buf) 
+									  (+ buf-end amt)))])
 			(cond
 			 [(or (eof-object? c) 
 			      (procedure? c))