diff --git a/Propellor/Engine.hs b/Propellor/Engine.hs
index e5f8a96..25870ae 100644
--- a/Propellor/Engine.hs
+++ b/Propellor/Engine.hs
@@ -22,6 +22,7 @@ ensureProperties' ps = ensure ps NoChange
   where
 	ensure [] rs = return rs
 	ensure (l:ls) rs = do
+		setTitle $ propertyDesc l
 		r <- ensureProperty l
 		clearFromCursorToLineBeginning
 		setCursorColumn 0