Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -31,28 +31,22 @@
 (declare (uses commonmod))
 (import commonmod)
 
 (include "common_records.scm")
 
-
-;; (require-library margs)
-;; (include "margs.scm")
-
-;; (define old-exit exit)
-;; 
-;; (define (exit . code)
-;;   (if (null? code)
-;;       (old-exit)
-;;       (old-exit code)))
+(define (remove-server-files directory-path)
+  (let ((files (glob (string-append directory-path "/server*"))))
+    (for-each delete-file files)))
 
 (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")
+                                        (remove-server-files (conc *toppath* "/logs"))
 					(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* .