diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,9 @@
 ## Changes
 
+#### 1.3.1.2
+
+- Fixes the test suite on GHC 8
+
 #### 1.3.1.1
 
 - Various updates to metadata and documentation removing outdated information and making other things more visible
diff --git a/HUnit.cabal b/HUnit.cabal
--- a/HUnit.cabal
+++ b/HUnit.cabal
@@ -1,5 +1,5 @@
 Name:                   HUnit
-Version:                1.3.1.1
+Version:                1.3.1.2
 Cabal-Version:          >= 1.8
 License:                BSD3
 License-File:           LICENSE
diff --git a/tests/HUnitTestExtended.hs b/tests/HUnitTestExtended.hs
--- a/tests/HUnitTestExtended.hs
+++ b/tests/HUnitTestExtended.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
 module HUnitTestExtended (
     extendedTests
     ) where
@@ -5,6 +6,11 @@
 import Test.HUnit
 import HUnitTestBase
 
+#if MIN_VERSION_base(4,9,0)
+errorCall :: a
+errorCall = error "error"
+#endif
+
 extendedTests :: Test
 extendedTests = test [
 
@@ -16,8 +22,13 @@
     "list ref out of bounds" ~:
         expectUnspecifiedError (TestCase ([1 .. 4 :: Integer] !! 10 `seq` return ())),
 
+#if MIN_VERSION_base(4,9,0)
     "error" ~:
+        expectError "error\nCallStack (from HasCallStack):\n  error, called at tests/HUnitTestExtended.hs:11:13 in main:HUnitTestExtended" (TestCase errorCall),
+#else
+     "error" ~:
         expectError "error" (TestCase (error "error")),
+#endif
 
     "tail []" ~:
         expectUnspecifiedError (TestCase (tail [] `seq` return ()))