diff --git a/extra/io/streams/peek/peek.factor b/extra/io/streams/peek/peek.factor
index 886b4c0254..1568d66914 100644
--- a/extra/io/streams/peek/peek.factor
+++ b/extra/io/streams/peek/peek.factor
@@ -85,3 +85,6 @@ M: peek-stream stream-flush stream>> stream-flush ;
         [ stream-read ] 2bi
         [ reverse swap peeked>> push-all ] keep
     ] if ;
+
+: peek1 ( -- seq ) input-stream get stream-peek1 ; inline
+: peek ( n -- seq ) input-stream get stream-peek ; inline