diff --git a/Test/Framework/Runners/Console/Run.hs b/Test/Framework/Runners/Console/Run.hs
--- a/Test/Framework/Runners/Console/Run.hs
+++ b/Test/Framework/Runners/Console/Run.hs
@@ -24,7 +24,7 @@
 
 
 showRunTestsTop :: Bool -> [RunningTest] -> IO [FinishedTest]
-showRunTestsTop isplain running_tests = hideCursorDuring $ do
+showRunTestsTop isplain running_tests = (if isplain then id else hideCursorDuring) $ do
     -- Show those test results to the user as we get them. Gather statistics on the fly for a progress bar
     let test_statistics = initialTestStatistics (totalRunTestsList running_tests)
     (test_statistics', finished_tests) <- showRunTests isplain 0 test_statistics running_tests
diff --git a/Test/Framework/Runners/Console/Utilities.hs b/Test/Framework/Runners/Console/Utilities.hs
--- a/Test/Framework/Runners/Console/Utilities.hs
+++ b/Test/Framework/Runners/Console/Utilities.hs
@@ -3,9 +3,10 @@
     ) where
 
 import System.Console.ANSI
+import System.IO
 
 import Control.Exception.Extensible
 
 
 hideCursorDuring :: IO a -> IO a
-hideCursorDuring action = bracket hideCursor (const showCursor) (const action)
+hideCursorDuring action = bracket hideCursor (const (showCursor >> hFlush stdout)) (const action)
diff --git a/test-framework.cabal b/test-framework.cabal
--- a/test-framework.cabal
+++ b/test-framework.cabal
@@ -1,5 +1,5 @@
 Name:                test-framework
-Version:             0.3.2
+Version:             0.3.3
 Cabal-Version:       >= 1.2.3
 Category:            Testing
 Synopsis:            Framework for running and organising tests, with HUnit and QuickCheck support