diff --git a/Debug/Show.hs b/Debug/Show.hs
--- a/Debug/Show.hs
+++ b/Debug/Show.hs
@@ -95,7 +95,11 @@
 instance Show (V BlockedIndefinitelyOnSTM) where show (V e) = "BlockedIndefinitelyOnSTM: " ++ show e
 instance Show (V Deadlock) where show (V e) = "Deadlock: " ++ show e
 -- instance Show (V Dynamic) where show (V e) = "Dynamic: " ++ show e
+#if MIN_VERSION_base(4,9,0)
 instance Show (V ErrorCall) where show (V (ErrorCallWithLocation s t)) = "ErrorCallWithLocation " ++ show s ++ " " ++ show t
+#else
+instance Show (V ErrorCall) where show (V (ErrorCall s)) = "ErrorCallWithLocation " ++ show s
+#endif
 instance Show (V ExitCode) where show (V e) = "ExitCode: " ++ show e
 -- instance Show (V IOException) where show (V e) = "IOException: " ++ show e -- defined above
 instance Show (V NestedAtomically) where show (V e) = "NestedAtomically: " ++ show e
diff --git a/show-please.cabal b/show-please.cabal
--- a/show-please.cabal
+++ b/show-please.cabal
@@ -1,5 +1,5 @@
 Name:           show-please
-Version:        0.5.3
+Version:        0.5.4
 License:        BSD3
 Author:         David Fox <dsf@seereason.com>
 Category:       debug