@@ -350,11 +350,11 @@
 ;; The watchdog is to keep an eye on things like db sync etc.
 ;;
 (define *watchdog* (make-thread common:watchdog "Watchdog thread"))
 
 (thread-start! *watchdog*)
-
+(BB> "thread-start! watchdog")
 (if (args:get-arg "-log")
     (let ((oup (open-output-file (args:get-arg "-log"))))
       (debug:print-info 0 *default-log-port* "Sending log output to " (args:get-arg "-log"))
       (set! *default-log-port* oup)))
 
@@ -1990,11 +1990,11 @@
 ;; Exit and clean up
 ;;======================================================================
 
 (if (not *didsomething*)
     (debug:print 0 *default-log-port* help))
-
+(BB> "thread-join! watchdog")
 (thread-join! *watchdog*)
 (set! *time-to-exit* #t)
 
 (if (not (eq? *globalexitstatus* 0))
     (if (or (args:get-arg "-run")(args:get-arg "-runtests")(args:get-arg "-runall"))