diff --git a/Messages/Progress.hs b/Messages/Progress.hs
index 06f2531be0..c4f55de50f 100644
--- a/Messages/Progress.hs
+++ b/Messages/Progress.hs
@@ -33,6 +33,7 @@ metered :: Maybe MeterUpdate -> Key -> (MeterUpdate -> Annex a) -> Annex a
 metered othermeter key a = withMessageState $ go (keySize key)
   where
 	go _ (MessageState { outputType = QuietOutput }) = nometer
+	go Nothing (MessageState { outputType = NormalOutput }) = nometer
 	go (Just size) (MessageState { outputType = NormalOutput, concurrentOutputEnabled = False }) = do
 		showOutput
 		(progress, meter) <- mkmeter size