diff --git a/knots/web-server.scm b/knots/web-server.scm
index ab16b80..ea53ba2 100644
--- a/knots/web-server.scm
+++ b/knots/web-server.scm
@@ -341,7 +341,7 @@ on the procedure being called at any particular time."
           (lambda (exn)
             (unless (and (exception-with-origin? exn)
                          (string=? (exception-origin exn)
-                                   "fport_write"))
+                                   "fport_read"))
               (display "knots web-server, exception in client loop:\n"
                        (current-error-port))
               (print-exception