diff --git a/tests/Tests.hs b/tests/Tests.hs
index de3d4bb..7929ed0 100644
--- a/tests/Tests.hs
+++ b/tests/Tests.hs
@@ -128,7 +128,7 @@ runMain debug number = do
               Right _ -> return ()
               Left e -> error $ show e
           debug' "session standing")
-          (\e -> liftIO (print (e ::Ex.SomeException) >> Ex.throwIO e) )
+          (\e -> debug' $ show  (e ::Ex.SomeException))
       sendPresence presenceOnline
       fork autoAccept
       sendPresence $ presenceSubscribe them