Index: tcp-transportmod.scm
==================================================================
--- tcp-transportmod.scm
+++ tcp-transportmod.scm
@@ -379,11 +379,17 @@
 			    #t
 			    (let* ((lockinfo  (dbfile:with-no-sync-db nosyncdbpath
 								      (lambda (db)
 									(db:no-sync-get-lock db dbfname))))
 				   (success   (car lockinfo)))
-			      success)))
+			      (if success
+				  (begin
+				    (debug:print 0 *default-log-port* "Got server lock for "dbfname)
+				    #t)
+				  (begin
+				    (debug:print 0 *default-log-port* "Failed to get server lock for "dbfname)
+				    #f)))))
 		       (else
 			(debug:print-info 0 *default-log-port* "I'm not the lead server: "servers)
 			(let* ((leadsrv (car servers)))
 			  (match leadsrv
 			    ((host port startseconds server-id pid dbfname servinfofile)