diff --git a/core/sequences/sequences.factor b/core/sequences/sequences.factor
index e496e55c24..1d3b12fa75 100644
--- a/core/sequences/sequences.factor
+++ b/core/sequences/sequences.factor
@@ -599,6 +599,13 @@ PRIVATE>
     swap V{ } clone
     [ [ (indices) ] 2curry each-index ] keep ;
 
+<PRIVATE
+
+: nths-unsafe ( indices seq -- seq' )
+    [ [ nth-unsafe ] curry ] keep map-as ;
+
+PRIVATE>
+
 : nths ( indices seq -- seq' )
     [ [ nth ] curry ] keep map-as ;