Merge branch 'master' into incrementalfsck

1 files changed, 4 insertions, 3 deletions

diff --git a/Command/Status.hs b/Command/Status.hs
index 9da1bea98..c3713f073 100644
--- a/Command/Status.hs
+++ b/Command/Status.hs
@@ -371,10 +371,11 @@ staleSize label dirspec = go =<< lift (dirKeys dirspec)
 	onsize size = stat label $
 		json (++ aside "clean up with git-annex unused") $
 			return $ roughSize storageUnits False size
-	keysizes keys = map (fromIntegral . fileSize) <$> stats keys
-	stats keys = do
+	keysizes keys = do
 		dir <- lift $ fromRepo dirspec
-		liftIO $ forM keys $ \k -> getFileStatus (dir </> keyFile k)
+		liftIO $ forM keys $ \k -> catchDefaultIO 0 $
+			fromIntegral . fileSize 
+				<$> getFileStatus (dir </> keyFile k)
 
 aside :: String -> String
 aside s = " (" ++ s ++ ")"