From 88d0b20b3cbd8d100d372ccee08c56e55e8ad20e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Tue, 4 Jan 2011 17:15:14 +0100
Subject: [PATCH] si_copy_file() did not open files in binary mode (Windows)

---
 src/c/unixfsys.d | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d
index a1a2b348a..469500353 100644
--- a/src/c/unixfsys.d
+++ b/src/c/unixfsys.d
@@ -1085,9 +1085,9 @@ si_copy_file(cl_object orig, cl_object dest)
 	orig = si_coerce_to_filename(orig);
 	dest = si_coerce_to_filename(dest);
 	ecl_disable_interrupts();
-	in = fopen((char*)orig->base_string.self, "r");
+	in = fopen((char*)orig->base_string.self, OPEN_R);
 	if (in) {
-		out = fopen((char*)dest->base_string.self, "w");
+		out = fopen((char*)dest->base_string.self, OPEN_W);
 		if (out) {
 			unsigned char *buffer = ecl_alloc_atomic(1024);
 			cl_index size;