diff --git a/src/components/input.lisp b/src/components/input.lisp
index 6b6d9f0..7eafa6f 100644
--- a/src/components/input.lisp
+++ b/src/components/input.lisp
@@ -78,7 +78,7 @@
       (let ((sap (sb-sys:vector-sap buf)))
         (if timeout-ms
             (let ((poll-result (sb-unix:unix-simple-poll fd :input timeout-ms)))
-              (if (and poll-result (plusp poll-result))
+              (if poll-result
                   (let ((n (sb-unix:unix-read fd sap 1)))
                     (if (= n 1) (aref buf 0) (values nil :eof)))
                   (values nil nil)))