Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -582,11 +582,11 @@
 			     (assert #f "Bad server record "leadsrv))))))))
 	(if ok
 	    (tt-last-access-set! ttdat *db-last-access*) ;; bit silly, just use db-last-access
 	    (begin
 	      (debug:print 0 *default-log-port* "Exiting immediately")
-	      ;; (cleanup) ;; there is nothing to clean up I think. I'm seeing servers hit this line and never exit.
+	      (cleanup)
 	      (exit)))
 
 	(let* ((last-update (dbr:dbstruct-last-update dbstruct))
 	       (curr-secs   (current-seconds)))
 	  (if (and (eq? (tt-state ttdat) 'running)