kmx.io/cl-thot

diff --git a/thot-simple.lisp b/thot-simple.lisp
index 2d68504..e5da306 100644
--- a/thot-simple.lisp
+++ b/thot-simple.lisp
@@ -33,5 +33,5 @@
 
 (setq *acceptor-loop* 'acceptor-loop-simple)
 
-;(untrace acceptor-loop request-loop read write cffi-socket:accept unistd:close)
+;(trace acceptor-loop request-loop read write cffi-socket:accept unistd:close)
 
diff --git a/thot.lisp b/thot.lisp
index 5f9c52d..5ea5d7a 100644
--- a/thot.lisp
+++ b/thot.lisp
@@ -5,7 +5,7 @@
 
 (in-package :thot)
 
-(setf (debug-p :thot) nil)
+(setf (debug-p :thot) t)
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
   (unless (boundp '+crlf+)
@@ -446,6 +446,9 @@ The requested url ~S was not found on this server."
 
 (defun start (&key (host "0.0.0.0") (port 8000))
   (setq *stop* nil)
+  (when (debug-p :thot)
+    (format t "~&Thot starting on ~A:~A with ~A~%"
+            host port *acceptor-loop*))
   (let ((*host* host)
         (*port* port))
     (socket:with-socket (fd socket:+af-inet+