diff --git a/Yesod/Test.hs b/Yesod/Test.hs
--- a/Yesod/Test.hs
+++ b/Yesod/Test.hs
@@ -96,7 +96,7 @@
     ) where
 
 import qualified Test.Hspec as Hspec
-import qualified Test.Hspec.Core as Core
+import qualified Test.Hspec.Core as Hspec
 import qualified Data.List as DL
 import qualified Data.ByteString.Char8 as BS8
 import Data.ByteString (ByteString)
@@ -202,10 +202,10 @@
           -> YesodSpec site
           -> Hspec.Spec
 yesodSpec site yspecs =
-    Core.fromSpecList $ map unYesod $ execWriter yspecs
+    Hspec.fromSpecList $ map unYesod $ execWriter yspecs
   where
-    unYesod (YesodSpecGroup x y) = Core.SpecGroup x $ map unYesod y
-    unYesod (YesodSpecItem x y) = Core.it x $ do
+    unYesod (YesodSpecGroup x y) = Hspec.specGroup x $ map unYesod y
+    unYesod (YesodSpecItem x y) = Hspec.specItem x $ do
         app <- toWaiAppPlain site
         ST.evalStateT y YesodExampleData
             { yedApp = app
@@ -221,12 +221,10 @@
                            -> YesodSpec site
                            -> Hspec.Spec
 yesodSpecWithSiteGenerator getSiteAction yspecs =
-    Core.fromSpecList $ map (unYesod getSiteAction) $ execWriter yspecs
+    Hspec.fromSpecList $ map (unYesod getSiteAction) $ execWriter yspecs
     where
-      unYesod :: YesodDispatch t
-              => IO t -> YesodSpecTree t -> Core.SpecTree
-      unYesod getSiteAction' (YesodSpecGroup x y) = Core.SpecGroup x $ map (unYesod getSiteAction') y
-      unYesod getSiteAction' (YesodSpecItem x y) = Core.it x $ do
+      unYesod getSiteAction' (YesodSpecGroup x y) = Hspec.specGroup x $ map (unYesod getSiteAction') y
+      unYesod getSiteAction' (YesodSpecItem x y) = Hspec.specItem x $ do
         site <- getSiteAction'
         app <- toWaiAppPlain site
         ST.evalStateT y YesodExampleData
@@ -245,10 +243,10 @@
              -> YesodSpec site
              -> Hspec.Spec
 yesodSpecApp site getApp yspecs =
-    Core.fromSpecList $ map unYesod $ execWriter yspecs
+    Hspec.fromSpecList $ map unYesod $ execWriter yspecs
   where
-    unYesod (YesodSpecGroup x y) = Core.SpecGroup x $ map unYesod y
-    unYesod (YesodSpecItem x y) = Core.it x $ do
+    unYesod (YesodSpecGroup x y) = Hspec.specGroup x $ map unYesod y
+    unYesod (YesodSpecItem x y) = Hspec.specItem x $ do
         app <- getApp
         ST.evalStateT y YesodExampleData
             { yedApp = app
diff --git a/yesod-test.cabal b/yesod-test.cabal
--- a/yesod-test.cabal
+++ b/yesod-test.cabal
@@ -1,5 +1,5 @@
 name:               yesod-test
-version:            1.4.0.3
+version:            1.4.1
 license:            MIT
 license-file:       LICENSE
 author:             Nubis <nubis@woobiz.com.ar>
@@ -23,7 +23,7 @@
                    , network                   >= 2.2
                    , http-types                >= 0.7
                    , HUnit                     >= 1.2
-                   , hspec                     >= 1.4
+                   , hspec                     >= 1.12.4
                    , bytestring                >= 0.9
                    , case-insensitive          >= 0.2
                    , text