diff --git a/basis/checksums/md5/md5.factor b/basis/checksums/md5/md5.factor
index 0bebd0ab23..e8c890ddb0 100644
--- a/basis/checksums/md5/md5.factor
+++ b/basis/checksums/md5/md5.factor
@@ -185,8 +185,8 @@ M: md5-state checksum-block
             [ (process-md5-block-I) ]
         } 2cleave
     ] [
-        nip update-md5
-    ] 2bi ;
+        update-md5
+    ] bi ;
 
 : md5>checksum ( md5 -- bytes )
     state>> underlying>> byte-array>le ;