diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index b559d36594..7fbb53ed5f 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -1011,8 +1011,7 @@ PRIVATE>
 <PRIVATE
 
 : (map-find) ( seq quot find-quot -- result elt )
-    [ [ f ] 2dip [ [ nip ] dip call dup ] curry ] dip call
-    [ [ drop f ] unless ] dip ; inline
+    [ [ f ] 2dip [ nip ] prepose [ dup ] compose ] dip call nip ; inline
 
 PRIVATE>