@@ -320,11 +320,11 @@
 	 (count    0))
     (for-each
      (lambda (rec)
        (if (or (> (length sorted) 1)
 	       (common:low-noise-print 120 "server info sorted"))
-	   (debug:print 0 *default-log-port* "SERVER #"count": "(string-intersperse (map conc sorted) ", ")))
+	   (debug:print 2 *default-log-port* "SERVER #"count": "(string-intersperse (map conc sorted) ", ")))
        (set! count (+ count 1)))
      sorted)
     sorted))
     
 (define (tt:get-current-server-info ttdat dbfname)
@@ -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)