diff --git a/Git/Repair.hs b/Git/Repair.hs
index 2578f2c17e..88150e44e0 100644
--- a/Git/Repair.hs
+++ b/Git/Repair.hs
@@ -513,7 +513,10 @@ runRepairOf fsckresult forced referencerepo g = do
 							else needforce S.empty
 					)
 			| otherwise -> if forced
-				then continuerepairs s
+				then ifM (checkIndex s g)
+					( continuerepairs s
+					, corruptedindex
+					)
 				else do
 					putStrLn $ unwords
 						[ show (S.size s)