diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor
index 6805f7a268..f13f99f8cf 100644
--- a/extra/sequences/extras/extras.factor
+++ b/extra/sequences/extras/extras.factor
@@ -195,3 +195,6 @@ PRIVATE>
 
 : harvest-as ( seq exemplar -- newseq )
     [ empty? not ] swap filter-as ;
+
+: contains? ( seq elts -- ? )
+    [ member? ] curry any? ; inline