Index: dbmod.scm
==================================================================
--- dbmod.scm
+++ dbmod.scm
@@ -208,11 +208,11 @@
     (dbr:dbstruct-sync-proc-set! dbstruct
 				 (lambda (last-update)
 				   (if *sync-in-progress*
 				       (debug:print 3 *default-log-port* "WARNING: overlapping calls to sync to disk")
 				       (let* ((sync-cmd (conc "megatest -db2db -from "tmpdb" -to "dbfullname"&"))
-					      (synclock-file     (conc dbfullname".sync-lock"))
+					      (synclock-file     (conc dbfullname".lock"))
 					      (synclock-mod-time (if (file-exists? synclock-file)
 								     (handle-exceptions
 									 exn
 								       #f
 								       (file-modification-time synclock-file))

Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -795,11 +795,11 @@
 								(let* ((errdat (condition->list exn)))
 								  (set! exn-result errdat)
 								  (debug:print 0 *default-log-port* "ERROR: handler exception, these are bad, will exit in five seconds.")
 								  (pp errdat *default-log-port*)
 								  ;; these are always bad, set up an exit thread
-								  (thread-start! (make-thread (lambda ()
+								  #;(thread-start! (make-thread (lambda ()
 												(thread-sleep! 5)
 												(exit))))
 								  #f)
 								(handler indat) ;; this is the proc being called by the remote client
 								)))