math.statistics: fix typo

diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index e9a61a9628d2ab516ac3e1db1c240f83a4a3ce18..ab5e10a6e6aa5ac359725f038790b2c9600a573f 100644 (file)
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -124,7 +124,7 @@ PRIVATE>
     k seq nth-unsafe ; inline
 
 : (kth-object) ( seq k nth-quot exchange-quot quot: ( x y -- ? ) -- elt )
-    ! The algorithm modifiers seq, so we clone it
+    ! The algorithm modifies seq, so we clone it
     [ >array ] 4dip kth-object-impl ; inline
 
 : kth-object-unsafe ( seq k quot: ( x y -- ? ) -- elt )