diff --git a/Annex/Transfer.hs b/Annex/Transfer.hs
index af9d89f4da..460376b7e6 100644
--- a/Annex/Transfer.hs
+++ b/Annex/Transfer.hs
@@ -105,7 +105,7 @@ runTransfer' ignorelock t file shouldretry transferobserver transferaction = do
 				, return (Nothing, True)
 				)
 #else
-	prep tfile _mode info = catchPermissionDenied (const prepfailed) liftIO $ do
+	prep tfile _mode info = catchPermissionDenied (const prepfailed) $ do
 		let lck = transferLockFile tfile
 		createAnnexDirectory $ takeDirectory lck
 		v <- catchMaybeIO $ lockExclusive lck