diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs
index 94c70e714d..d1ee6502a3 100644
--- a/Utility/LockFile/PidLock.hs
+++ b/Utility/LockFile/PidLock.hs
@@ -93,7 +93,9 @@ tryLock lockfile = trySideLock lockfile $ \sidelock -> do
 		return Nothing
 	let tooklock = return $ Just $ LockHandle lockfile fd sidelock
 	ifM (isJust <$> catchMaybeIO (createLink tmp lockfile))
-		( tooklock
+		( do
+			nukeFile tmp
+			tooklock
 		, do
 			v <- readPidLock lockfile
 			hn <- getHostName