diff --git a/Data/Stream.hs b/Data/Stream.hs
--- a/Data/Stream.hs
+++ b/Data/Stream.hs
@@ -460,3 +460,8 @@
 fromList (x:xs) = Cons x (fromList xs)
 fromList []     = error "Stream.fromList applied to finite list"
 
+-- | The 'prefix' function adds a list as a prefix to an existing
+-- stream. If the list is infinite, it is converted to a Stream and
+-- the second argument is ignored.
+prefix :: [a] -> Stream a -> Stream a
+prefix xs ys = foldr Cons ys xs
diff --git a/Stream.cabal b/Stream.cabal
--- a/Stream.cabal
+++ b/Stream.cabal
@@ -1,5 +1,5 @@
 Name:                   Stream
-Version:                0.4.6.1
+Version:                0.4.6.2
 License:                BSD3
 License-file:           LICENSE
 Author:                 Wouter Swierstra <wouter.swierstra@gmail.com>