diff --git a/Utility/Metered.hs b/Utility/Metered.hs
index 447eab2e89..f27eee26db 100644
--- a/Utility/Metered.hs
+++ b/Utility/Metered.hs
@@ -120,7 +120,7 @@ hGetUntilMetered h keepgoing meterupdate = lazyRead zeroBytesProcessed
 	lazyRead sofar = unsafeInterleaveIO $ loop sofar
 
 	loop sofar = do
-		c <- S.hGetSome h defaultChunkSize
+		c <- S.hGet h defaultChunkSize
 		if S.null c
 			then do
 				hClose h