diff --git a/src/Data/Text/Internal/Measure.hs b/src/Data/Text/Internal/Measure.hs
index 96ed78d3..2d2d9696 100644
--- a/src/Data/Text/Internal/Measure.hs
+++ b/src/Data/Text/Internal/Measure.hs
@@ -33,7 +33,7 @@ measure_off ba off len cnt = go 0 0
     go !cc !i
       -- return the number of bytes for the first cnt codepoints,
       | cc == cnt = fromIntegral i
-      -- return negated number of codepoints if there are less than cnt
+      -- return negated number of codepoints if there are fewer than cnt
       | i >= len  = negate (fromIntegral cc)
       | otherwise =
           let !(I# o) = fromIntegral (off+i)