diff --git a/Propellor/Property/Cmd.hs b/Propellor/Property/Cmd.hs
index 3e496b8..09db650 100644
--- a/Propellor/Property/Cmd.hs
+++ b/Propellor/Property/Cmd.hs
@@ -45,3 +45,4 @@ scriptProperty script = cmdProperty "sh" ["-c", shellcmd]
 serviceRunning :: String -> Property
 serviceRunning svc = scriptProperty
 	["service " ++ shellEscape svc ++ " start >/dev/null 2>&1 || true"]
+	`describe` ("running " ++ svc)