@@ -483,10 +483,11 @@
 			      (lambda ()
 				(tt:keep-running ttdat dbfname dbstruct)))))
 	    (thread-start! tcp-thread)
 	    (thread-start! run-thread)
 	    (thread-join! run-thread) ;; run thread will exit on timeout or other conditions
+            (debug:print 0 *default-log-port* "Exiting now.")
 	    (exit))))))
 
 (define (tt:keep-running ttdat dbfname dbstruct)
   ;; verfiy conn for ready
   ;; listener socket has been started by this stage
@@ -599,11 +600,11 @@
 	(if (< (- (current-seconds) (tt-last-access ttdat)) (tt-server-timeout-param))
 	    (begin
 	      (thread-sleep! 5)
 	      (loop)))))
     (cleanup)
-    (debug:print 0 *default-log-port* "INFO: Server timed out, exiting.")))
+    (debug:print 0 *default-log-port* "INFO: Server timed out, exiting from tt:keep-running.")))
 
   
 ;; ;; given an already set up uconn start the cmd-loop
 ;; ;;
 ;; (define (tt:cmd-loop ttdat)