diff --git a/Assistant/XMPP.hs b/Assistant/XMPP.hs
index 01d42ba9bd..9654fdb4ba 100644
--- a/Assistant/XMPP.hs
+++ b/Assistant/XMPP.hs
@@ -171,8 +171,8 @@ decodeMessage m = decode =<< gitAnnexTagInfo m
 		<*> a i
 	gen c i = do
 	  	packet <- decodeTagContent $ tagElement i
-		let sequence = fromMaybe 0 $ readish $ T.unpack $ tagValue i
-		return $ c sequence packet
+		let seqnum = fromMaybe 0 $ readish $ T.unpack $ tagValue i
+		return $ c seqnum packet
 
 decodeExitCode :: Int -> ExitCode
 decodeExitCode 0 = ExitSuccess