diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor
index 68800d9590..90a7fcadc5 100644
--- a/basis/math/statistics/statistics.factor
+++ b/basis/math/statistics/statistics.factor
@@ -151,7 +151,6 @@ PRIVATE>
     bi kth-smallests first2 ;
 
 : median ( seq -- x )
-    clone
     dup length odd? [ lower-median ] [ medians + 2 / ] if ;
 
 ! quantile can be any n-tile. quartile is n = 4, percentile is n = 100
diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 577f348e17..abe99e9543 100644
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -99,7 +99,7 @@ PRIVATE>
     [ 1 ] 2dip [ [ dupd swap - ] dip * + dup ] curry map nip ;
 
 : moving-median ( u n -- v )
-    <clumps> [ median ] map ;
+    clump [ median ] map ;
 
 : moving-supremum ( u n -- v )
     <clumps> [ supremum ] map ;