diff --git a/extra/modern/slices/slices.factor b/extra/modern/slices/slices.factor
index 0eef47ade2..7129d12760 100644
--- a/extra/modern/slices/slices.factor
+++ b/extra/modern/slices/slices.factor
@@ -134,3 +134,6 @@ ERROR: subseq-expected-but-got-eof string n expected ;
     ] [
         nip [ [ length ] bi@ - ] keepd swap
     ] if ; inline
+
+: peek-from ( string n count -- string n slice )
+    [ drop ] [ drop ] [ + ] 2tri reach ?<slice> ;
\ No newline at end of file