diff --git a/Propellor/Engine.hs b/Propellor/Engine.hs
index 29c635e..2209193 100644
--- a/Propellor/Engine.hs
+++ b/Propellor/Engine.hs
@@ -13,6 +13,8 @@ ensureProperty = catchDefaultIO FailedChange . propertySatisfy
 ensureProperties :: [Property] -> IO ()
 ensureProperties ps = do
 	r <- ensureProperties' [Property "overall" $ ensureProperties' ps]
+	setTitle "propellor done"
+	hFlush stdout
 	case r of
 		FailedChange -> exitWith (ExitFailure 1)
 		_ -> exitWith ExitSuccess