checksums.md5: minor thing.

diff --git a/basis/checksums/md5/md5.factor b/basis/checksums/md5/md5.factor
index 0bebd0ab23ff1798cc978d0fa27d0395e5cba6a3..e8c890ddb0c156f8361603b658843489e8c2d9a4 100644 (file)
--- 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 ;