diff --git a/servant-snap.cabal b/servant-snap.cabal
--- a/servant-snap.cabal
+++ b/servant-snap.cabal
@@ -1,5 +1,5 @@
 name:                servant-snap
-version:             0.7.0.3
+version:             0.7.0.4
 synopsis:            A family of combinators for defining webservices APIs and serving them
 description:
   Interpret a Servant API as a Snap server, using any Snaplets you like.
@@ -108,13 +108,12 @@
     , exceptions
     , hspec >= 2.2.3 && < 2.4
     , process
-    , digestive-functors == 0.8.1.0
+    , digestive-functors >= 0.8.1.0 && < 0.9
     , time
     , hspec-snap >= 1.0 && < 1.1
-    , hspec-core == 2.2.3
+    , hspec-core >= 2.2.3 && < 2.3
     , http-types
     , HUnit
-    , digestive-functors == 0.8.1.0
     , mtl
     , network >= 2.6
     , QuickCheck
diff --git a/src/Servant/Server/Internal/ServantErr.hs b/src/Servant/Server/Internal/ServantErr.hs
--- a/src/Servant/Server/Internal/ServantErr.hs
+++ b/src/Servant/Server/Internal/ServantErr.hs
@@ -29,7 +29,7 @@
 throwError ServantErr{..} = do
   modifyResponse $ setResponseStatus errHTTPCode (BS.pack errReasonPhrase)
   modifyResponse $ setHeader "Content-Type" "application/json"
-  writeBS "null"
+  writeBS $ LBS.toStrict errBody
   getResponse >>= finishWith
 
 err300 :: ServantErr