From eb4e59652f2fe835edc4f4a56bd03074144c3dda Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Wed, 29 Dec 2010 09:29:30 -0600
Subject: [PATCH] fix getStrem in

---
 packages/PLStream/pl-file.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/PLStream/pl-file.c b/packages/PLStream/pl-file.c
index 14146fa47..60ba85a9a 100755
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -4344,7 +4344,7 @@ get_stream_handle_no_errors(term_t t, int read, int write, IOSTREAM **s)
 { GET_LD
   if ( t == 0 )
     { if (write) *s = getStream(Scurout);
-      else *s = getStream(Scurout);
+      else *s = getStream(Scurin);
       return TRUE;
     }
   return get_stream_handle(t, s, SH_ALIAS);