@@ -557,10 +557,12 @@
 ;;  (if start-watchdog
 ;;      (thread-start! *watchdog*))
     #t
 )
 
+;; stop the train watchdog
+(stop-the-train)
 
 ;; bracket open-output-file with code to make leading directory if it does not exist and handle exceptions
 (define (open-logfile logpath-in)
   (condition-case
    (let* ((log-dir (or (pathname-directory logpath-in) "."))