diff --git a/snap-testing.cabal b/snap-testing.cabal
--- a/snap-testing.cabal
+++ b/snap-testing.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                snap-testing
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            A library for BDD-style testing with the Snap Web Framework
 -- description:
 homepage:            https://github.com/dbp/snap-testing
diff --git a/src/Snap/Test/BDD.hs b/src/Snap/Test/BDD.hs
--- a/src/Snap/Test/BDD.hs
+++ b/src/Snap/Test/BDD.hs
@@ -94,7 +94,7 @@
 import qualified Data.Text as T (append)
 import           Data.Text.Encoding (encodeUtf8)
 import           Data.Monoid (mempty)
-import           Data.Maybe (fromJust)
+import           Data.Maybe (fromMaybe)
 import           Control.Monad (liftM, zipWithM, void)
 import           Control.Monad.Trans
 import           Control.Monad.Trans.State (StateT, evalStateT)
@@ -364,7 +364,7 @@
     testRedirect rsp
     testEqual message uri rspUri
   where
-    rspUri = fromJust $ getHeader "Location" rsp
+    rspUri = fromMaybe "" $ getHeader "Location" rsp
     message = pack $ "Expected redirect to " ++ show uri
               ++ " but got redirected to "
               ++ show rspUri ++ " instead"