@@ -56,12 +56,14 @@
 (define (stop-the-train)
   (thread-start! (make-thread (lambda ()
 				(let loop ()
 				  (if (and *toppath*
 					   (file-exists? (conc *toppath*"/stop-the-train")))
-				      (begin
-					(debug:print 0 *default-log-port* "ERROR: found file "*toppath*"/stop-the-train, exiting immediately")
+				      (let* ((msg (conc "ERROR: found file "*toppath*"/stop-the-train, exiting immediately")))
+					;; yes, print to current-output-port AND *default-log-port*, annoying but necessary I think
+					(print msg)
+					(debug:print 0 *default-log-port* msg)
 					(exit 1)))
 				  (thread-sleep! 5)
 				  (loop))))))
 
 ;; execute thunk, return value.  If exception thrown, trap exception, return #f, and emit nonfatal condition note to *default-log-port* .