diff --git a/fay-base.cabal b/fay-base.cabal
--- a/fay-base.cabal
+++ b/fay-base.cabal
@@ -1,5 +1,5 @@
 name:                fay-base
-version:             0.14.3.1
+version:             0.14.3.2
 synopsis:            The base package for Fay.
 description:         The base package for Fay.
                      This package exports Prelude and FFI which you probably want to use with Fay.
diff --git a/src/Prelude.hs b/src/Prelude.hs
--- a/src/Prelude.hs
+++ b/src/Prelude.hs
@@ -778,7 +778,7 @@
 
 replicate :: Int -> a -> [a]
 replicate 0 _ = []
-replicate n x = if n < 0 then error "replicate: negative length"
+replicate n x = if n < 0 then []
                          else x : replicate (n-1) x
 
 cycle :: [a] -> [a]
@@ -788,19 +788,19 @@
 take :: Int -> [a] -> [a]
 take 0 _  = []
 take _ [] = []
-take n (x:xs) = if n < 0 then error "take: negative length"
+take n (x:xs) = if n < 0 then []
                          else x : take (n-1) xs
 
 drop :: Int -> [a] -> [a]
 drop 0 xs = xs
 drop _ [] = []
-drop n (_:xs) = if n < 0 then error "drop: negative length"
-                         else drop (n-1) xs
+drop n xss@(x:xs) = if n < 0 then xss
+                             else drop (n-1) xs
 
 splitAt :: Int -> [a] -> ([a], [a])
 splitAt 0 xs     = ([], xs)
 splitAt _ []     = ([], [])
-splitAt n (x:xs) = if n < 0 then error "splitAt: negative length"
+splitAt n (x:xs) = if n < 0 then ([],x:xs)
                             else case splitAt (n-1) xs of (a,b) -> (x:a, b)
 
 takeWhile :: (a -> Bool) -> [a] -> [a]
@@ -897,7 +897,6 @@
 minimum xs = foldl1 min xs
 
 product :: Num a => [a] -> a
-product [] = error "product: empty list"
 product xs = foldl (*) 1 xs
 
 sum :: Num a => [a] -> a