From f68cc92bcef8e392dc51412aef20bf11e592459a Mon Sep 17 00:00:00 2001
From: "U-Khasa\\Vitor" <Vitor@Khasa.(none)>
Date: Sun, 2 Aug 2009 16:04:21 -0500
Subject: [PATCH] make sure binary files are open as binary in WIN32 (obs from
 Meera Sridhar).

---
 C/iopreds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index 00cf27c54..23f084177 100755
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2311,7 +2311,7 @@ p_open (void)
     return FALSE;
   encoding = IntegerOfTerm(tenc);
 #ifdef _WIN32
-  if (st->status & Binary_Stream_f) {
+  if (opts & 2) {
     strncat(io_mode, "b", 8);
   } else {
     strncat(io_mode, "t", 8);