diff --git a/src/Simplex/Chat.hs b/src/Simplex/Chat.hs
index 809e3d9cde..715e460c87 100644
--- a/src/Simplex/Chat.hs
+++ b/src/Simplex/Chat.hs
@@ -375,7 +375,7 @@ processChatCommand = \case
           forM_ contacts $ \ct -> sendDirectContactMessage ct $ XInfo p
           pure $ CRUserProfileUpdated profile p
   QuitChat -> liftIO exitSuccess
-  ShowVersion -> pure CRVersionInfo
+  ShowVersion -> pure $ CRVersionInfo versionNumber
   where
     withChatLock action = do
       ChatController {chatLock = l, smpAgent = a} <- ask
diff --git a/src/Simplex/Chat/Controller.hs b/src/Simplex/Chat/Controller.hs
index 7b5d11794f..7eec8ee084 100644
--- a/src/Simplex/Chat/Controller.hs
+++ b/src/Simplex/Chat/Controller.hs
@@ -153,7 +153,7 @@ data ChatResponse
   | CRFileTransferStatus (FileTransfer, [Integer]) -- TODO refactor this type to FileTransferStatus
   | CRUserProfile {profile :: Profile}
   | CRUserProfileNoChange
-  | CRVersionInfo
+  | CRVersionInfo {version :: String}
   | CRInvitation {connReqInvitation :: ConnReqInvitation}
   | CRSentConfirmation
   | CRSentInvitation
diff --git a/src/Simplex/Chat/View.hs b/src/Simplex/Chat/View.hs
index eb4458570a..08ad47543c 100644
--- a/src/Simplex/Chat/View.hs
+++ b/src/Simplex/Chat/View.hs
@@ -61,7 +61,7 @@ responseToView cmd testView = \case
   CRFileTransferStatus ftStatus -> r $ viewFileTransferStatus ftStatus
   CRUserProfile p -> r $ viewUserProfile p
   CRUserProfileNoChange -> r ["user profile did not change"]
-  CRVersionInfo -> r [plain versionStr, plain updateStr]
+  CRVersionInfo _ -> r [plain versionStr, plain updateStr]
   CRChatCmdError e -> r $ viewChatError e
   CRInvitation cReq -> r' $ viewConnReqInvitation cReq
   CRSentConfirmation -> r' ["confirmation sent!"]