diff --git a/Data/Stream.hs b/Data/Stream.hs
--- a/Data/Stream.hs
+++ b/Data/Stream.hs
@@ -129,7 +129,7 @@
 
 -- | Extract the sequence following the head of the stream.
 tail :: Stream a -> Stream a
-tail ~(Cons _ xs) = xs
+tail (Cons _ xs) = xs
 
 -- | The 'inits' function takes a stream @xs@ and returns all the
 -- finite prefixes of @xs@.
@@ -221,7 +221,7 @@
 -- /Beware/: passing a negative integer as the first argument will
 -- cause an error.
 take :: Int -> Stream a  -> [a]
-take n (Cons x xs)
+take n ~(Cons x xs)
   | n == 0    = []
   | n > 0     =  x : (take (n - 1) xs)
   | otherwise = error "Stream.take: negative argument."
diff --git a/Stream.cabal b/Stream.cabal
--- a/Stream.cabal
+++ b/Stream.cabal
@@ -1,5 +1,5 @@
 Name:                   Stream
-Version:                0.4
+Version:                0.4.1
 License:                BSD3
 License-file:           LICENSE
 Author:                 Wouter Swierstra <wss@cs.nott.ac.uk>,