diff --git a/src/Propellor/Protocol.hs b/src/Propellor/Protocol.hs
index 95a671b..2c56881 100644
--- a/src/Propellor/Protocol.hs
+++ b/src/Propellor/Protocol.hs
@@ -41,6 +41,7 @@ fromMarked marker s
 
 sendMarked :: Handle -> Marker -> String -> IO ()
 sendMarked h marker s = do
+	debug ["sent req", marker]
 	-- Prefix string with newline because sometimes a
 	-- incomplete line has been output, and the marker needs to
 	-- come at the start of a line.