diff --git a/knots/timeout.scm b/knots/timeout.scm
index a65a095..010e1d8 100644
--- a/knots/timeout.scm
+++ b/knots/timeout.scm
@@ -110,7 +110,7 @@
   (exception-predicate &port-write-timeout-error))
 
 (define (readable? port)
-  "Test if PORT is writable."
+  "Test if PORT is readable."
   (= 1 (port-poll port "r" 0)))
 
 (define (writable? port)