~ chicken-core (chicken-5) d0418ed239ea61683d525a9f5d1b6aabb4af3c6d

commit d0418ed239ea61683d525a9f5d1b6aabb4af3c6d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Thu Jan 19 11:56:51 2012 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jan 20 08:38:15 2012 +0100

    read-all should use binary mode to avoid ^Z at end of data on Windows

diff --git a/utils.scm b/utils.scm
index 3ca33e23..de55a4f9 100644
--- a/utils.scm
+++ b/utils.scm
@@ -53,7 +53,7 @@
   (let ([file (optional file ##sys#standard-input)])
     (if (port? file)
 	(read-string #f file)
-	(with-input-from-file file (cut read-string #f)) ) ) )
+	(with-input-from-file file (cut read-string #f) #:binary) ) ) )
 
 
 ;;; Quote string for shell