kmx.io/cl-thot

diff --git a/thot.lisp b/thot.lisp
index d7526da..c85eb75 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -545,6 +545,7 @@ The requested url "
 (declaim (type function *acceptor-loop*))
 
 (defun main-loop (fd)
+  (msg info " " *acceptor-loop*)
   (funcall *acceptor-loop* fd))
 
 (defvar *stop* nil)