diff --git a/basis/checksums/common/common.factor b/basis/checksums/common/common.factor
index 687a09386e..2f24b3a54a 100644
--- a/basis/checksums/common/common.factor
+++ b/basis/checksums/common/common.factor
@@ -38,9 +38,6 @@ GENERIC: checksum-block ( bytes checksum-state -- )
 
 GENERIC: get-checksum ( checksum-state -- value )
 
-: next-level ( n size -- n' )
-    2dup mod [ + ] [ - + ] if-zero ; inline
-
 ! Update the bytes-read before calculating checksum in case
 ! checksum uses this in the calculation.
 :: add-checksum-bytes ( checksum-state data -- checksum-state' )