diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,8 @@
+0.14.2 -- 2024-08-26
+---
+
+- Fix `ExceptionInLinkedThread` (see [#189](https://github.com/fizruk/telegram-bot-simple/pull/189)).
+
 0.14.1 -- 2024-05-26
 ---
 
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -32,6 +32,6 @@
 | 0.12  | 6.7  |
 | 0.13 | 7.0 | 
 | 0.14 | 7.3 | 
-| 0.14.1 | 7.3.1 | 
+| 0.14.2 | 7.4 |
 
 _Nick_
diff --git a/examples/EchoBot.hs b/examples/EchoBot.hs
--- a/examples/EchoBot.hs
+++ b/examples/EchoBot.hs
@@ -35,8 +35,8 @@
       Just $ InlineEcho queryId msg
   | isJust $ updateMessageSticker update = do
     fileId <- stickerFileId <$> updateMessageSticker update
-    chatId <- updateChatId update
-    pure $ StickerEcho (InputFileId fileId) chatId
+    chatOfUser <- updateChatId update
+    pure $ StickerEcho (InputFileId fileId) chatOfUser
   | otherwise = case updateMessageText update of
       Just text -> Just (Echo text)
       Nothing   -> Nothing
diff --git a/examples/EchoBotWebhook.hs b/examples/EchoBotWebhook.hs
--- a/examples/EchoBotWebhook.hs
+++ b/examples/EchoBotWebhook.hs
@@ -43,8 +43,8 @@
       Just $ InlineEcho queryId msg
   | isJust $ updateMessageSticker update = do
     fileId <- stickerFileId <$> updateMessageSticker update
-    chatId <- updateChatId update
-    pure $ StickerEcho (InputFileId fileId) chatId
+    chatOfUser <- updateChatId update
+    pure $ StickerEcho (InputFileId fileId) chatOfUser
   | otherwise = case updateMessageText update of
       Just text -> Just (Echo text)
       Nothing   -> Nothing
diff --git a/examples/GameBot.hs b/examples/GameBot.hs
--- a/examples/GameBot.hs
+++ b/examples/GameBot.hs
@@ -104,7 +104,11 @@
           { inlineQueryResultTitle = Just msg
           , inlineQueryResultInputMessageContent = Just gameMsg
           }
-        gameMsg = (defaultInputTextMessageContent gameMessageText) { inputMessageContentParseMode = Just "HTML" }
+        gameMsg = InputTextMessageContent
+          { inputMessageContentMessageText = gameMessageText
+          , inputMessageContentParseMode = Just "HTML"
+          , inputMessageContentDisableWebPagePrefiew = Nothing
+          }
         inlineQueryResult = InlineQueryResultGame
           { inlineQueryResultGameGeneric = genericResult
           , inlineQueryResultGameGameShortName = gameName
@@ -737,4 +741,3 @@
       H.div ! A.class_ "position-link" $ do
         H.div ! A.class_ "qel-button text-button text-again-button"
           $ toMarkup txt
-
diff --git a/src/Telegram/Bot/Simple/Reply.hs b/src/Telegram/Bot/Simple/Reply.hs
--- a/src/Telegram/Bot/Simple/Reply.hs
+++ b/src/Telegram/Bot/Simple/Reply.hs
@@ -61,6 +61,7 @@
 replyMessageToSendMessageRequest someChatId ReplyMessage{..} = SendMessageRequest
   { sendMessageChatId = someChatId
   , sendMessageBusinessConnectionId = Nothing
+  , sendMessageMessageEffectId = Nothing
   , sendMessageMessageThreadId = replyMessageMessageThreadId
   , sendMessageText = replyMessageText
   , sendMessageParseMode = replyMessageParseMode
diff --git a/telegram-bot-simple.cabal b/telegram-bot-simple.cabal
--- a/telegram-bot-simple.cabal
+++ b/telegram-bot-simple.cabal
@@ -1,7 +1,7 @@
 cabal-version: 1.12
 
 name:           telegram-bot-simple
-version:        0.14.1
+version:        0.14.2
 synopsis:       Easy to use library for building Telegram bots.
 description:    Please see the README on Github at <https://github.com/fizruk/telegram-bot-simple#readme>
 category:       Web