diff --git a/x86/tests/ElfX64Linux.hs b/x86/tests/ElfX64Linux.hs
index 8b01f79a..e80979ba 100644
--- a/x86/tests/ElfX64Linux.hs
+++ b/x86/tests/ElfX64Linux.hs
@@ -96,7 +96,7 @@ testDiscovery expectedFilename elf =
             unless (S.member addr ignoredBlocks) $ do
               let term = blockTerminator pb
               T.assertBool ("Unclassified block at " ++ show (MD.pblockAddr pb)) (not (isClassifyFailure term))
-              T.assertBool ("Translate error at " ++ show (MD.pblockAddr pb)) (not (isTranslateError term))
+              T.assertBool ("Translate error at " ++ show (MD.pblockAddr pb) ++ " " ++ show term) (not (isTranslateError term))
           let actualEntry = MD.discoveredFunAddr dfi
               -- actualEntry = fromIntegral (MM.addrValue (MD.discoveredFunAddr dfi))
           let actualBlockStarts = S.fromList [ (addr, toInteger (MD.blockSize pbr))