diff --git a/Utility/LockFile/PidLock.hs b/Utility/LockFile/PidLock.hs
index 786b961572..2646de94a8 100644
--- a/Utility/LockFile/PidLock.hs
+++ b/Utility/LockFile/PidLock.hs
@@ -279,7 +279,7 @@ waitedLock (Seconds timeout) lockfile displaymessage = do
 	giveup $ "Gave up waiting for pid lock file " ++ fromRawFilePath lockfile
 
 -- | Use when the pid lock has already been taken by another thread of the
--- same process, or perhaps is in the process of being taken.
+-- same process.
 alreadyLocked :: MonadIO m => LockFile -> m LockHandle
 alreadyLocked lockfile = liftIO $ do
 	abslockfile <- absPath lockfile