diff --git a/src/Tiny_httpd.ml b/src/Tiny_httpd.ml
index 7688d3c3..f0f95b6f 100644
--- a/src/Tiny_httpd.ml
+++ b/src/Tiny_httpd.ml
@@ -1101,8 +1101,9 @@ let run (self:t) : (unit,_) result =
               raise e
           );
       with e ->
-        Printf.eprintf "accept raised an exception: %s"
-           (Printexc.to_string e)
+        _debug (fun k -> k
+                  "Unix.accept or Thread.create raised an exception: %s"
+                  (Printexc.to_string e))
     done;
     Ok ()
   with e -> Error e