kmx.io/cl-thot

diff --git a/thot-epoll.lisp b/thot-epoll.lisp
index 9c0e49b..3906d70 100644
--- a/thot-epoll.lisp
+++ b/thot-epoll.lisp
@@ -83,7 +83,7 @@
   ())
 
 (defmethod agent-error ((epoll epoll-infos) (worker worker))
-  (error 'worker-error :agent worker))
+  (epoll-del epoll worker))
 
 (defmethod agent-in ((epoll epoll-infos) (worker worker))
   (let ((reader-cont (worker-reader-cont worker)))