~ chicken-core (chicken-5) 6f5f5f8dac7b7f44815a2c6893bfa3f7cb33185f

commit 6f5f5f8dac7b7f44815a2c6893bfa3f7cb33185f
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Wed Apr 25 17:56:07 2012 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Apr 27 23:01:32 2012 +0200

    Use binary mode when downloading files
    
    Fix for #820
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/setup-download.scm b/setup-download.scm
index ec94ac3b..1772013d 100644
--- a/setup-download.scm
+++ b/setup-download.scm
@@ -371,7 +371,7 @@
 		   (d "  ~a~%" name)
 		   (let* ((size (read ins))
 			  (data (read-string size in)) )
-		     (with-output-to-file (make-pathname dest name) (cut display data) ) )
+		     (with-output-to-file (make-pathname dest name) (cut display data) #:binary ) )
 		   (get-files (cons name files)) ) ) ) ) )))
 
   (define (http-fetch host port locn dest proxy-host proxy-port proxy-user-pass)