Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -55,10 +55,11 @@
 					;; yes, print to current-output-port AND *default-log-port*, annoying but necessary I think
 					(print msg)
 					(debug:print 0 *default-log-port* msg)
                                         (remove-files (conc *toppath* "/logs/server*"))
                                         (remove-files (conc *toppath* "/.servinfo/*"))
+                                        (remove-files (conc *toppath* "/.mtdb/*lock"))
 					(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* .