diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index f7ecbe8aa3..38beb1d5b0 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -5653,7 +5653,7 @@ data ChatMessageBatch
   | CMBLargeMessage SndMessage
 
 batchChatMessages :: NonEmpty SndMessage -> [ChatMessageBatch]
-batchChatMessages = mkBatch []
+batchChatMessages = reverse . mkBatch []
   where
     mkBatch :: [ChatMessageBatch] -> NonEmpty SndMessage -> [ChatMessageBatch]
     mkBatch batches msgs =