From 1fbd1f334a456eb50b68b6b33bb91442f6bbe02c Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 19 Feb 2025 17:34:45 +0000
Subject: [PATCH] Fix exception origin in the knots web server

---
 knots/web-server.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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