Index: /trunk/source/level-1/l1-streams.lisp
===================================================================
--- /trunk/source/level-1/l1-streams.lisp	(revision 14459)
+++ /trunk/source/level-1/l1-streams.lisp	(revision 14460)
@@ -5603,5 +5603,5 @@
           (io-buffer-count buf) 0
           (ioblock-eof ioblock) nil)
-      (when (or read-p (setq avail (stream-listen s)))
+      (when (or read-p (setq avail (fd-input-available-p fd 0)))
         (unless avail
           (let* ((deadline (ioblock-deadline ioblock))