From bb95034589893138bd1ac31e7cb0d0485deef8ec Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 6 Dec 2004 10:24:43 +0000
Subject: [PATCH] Fixed PEEK-CHAR for concatenated streams (M.Goffioul)

---
 src/c/file.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/file.d b/src/c/file.d
index e4ffec124..7364882c1 100644
--- a/src/c/file.d
+++ b/src/c/file.d
@@ -702,7 +702,7 @@ BEGIN:
 		cl_object strmi = strm->stream.object0;
 		c = EOF;
 		while (!endp(strmi)) {
-			c = ecl_getc(CAR(strmi));
+			c = ecl_peek_char(CAR(strmi));
 			if (c != EOF)
 				break;
 			strm->stream.object0 = strmi = CDR(strmi);