From 9a09a93a5b3c8648a5ce3d1c3c2a81ffcaefdf87 Mon Sep 17 00:00:00 2001
From: Paulo Moura <pmoura@logtalk.org>
Date: Wed, 27 Oct 2010 17:43:00 +0100
Subject: [PATCH] Corrected another bug in my patch for detecting UTF-32 BOMs.

---
 C/iopreds.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/C/iopreds.c b/C/iopreds.c
index 56ced4325..61e884450 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -2379,8 +2379,9 @@ check_bom(int sno, StreamDesc *st)
     	    st->stream_getc = PlUnGetc0000;
     	    st->stream_wgetc = get_wchar;
     	    st->stream_gets = DefaultGets;
-	    return TRUE;
-	} else {
+	        return TRUE;
+	      } else {
+          ch = st->stream_getc(sno);
           if (ch == EOFCHAR || ch != 0xFF) {
     	      st->och = ch;
     	      st->stream_getc = PlUnGetc0000fe;