diff -p -up read.d.orig read.d
--- read.d.orig	2009-12-01 20:12:37.959222746 -0200
+++ read.d	2009-12-01 20:14:50.641455003 -0200
@@ -2271,7 +2271,7 @@ READ:
 	else if (strm == Ct)
 		strm = symbol_value(sLAterminal_ioA);
 	check_type_stream(&strm);
-	if (stream_at_end(strm)) {
+	if (!listen_stream(strm)) {
 		if (eof_errorp == Cnil)
 			@(return eof_value)
 		else