diff --git a/src/Simplex/Chat/Library/Internal.hs b/src/Simplex/Chat/Library/Internal.hs
index 550b5dfffc..2a037297ab 100644
--- a/src/Simplex/Chat/Library/Internal.hs
+++ b/src/Simplex/Chat/Library/Internal.hs
@@ -1238,7 +1238,7 @@ validateGroupRoster GroupRoster {version, roster = entries} =
 
 -- Privileged members without a known key are skipped (recipients can't verify them).
 buildGroupRoster :: Int -> [GroupMember] -> GroupRoster
-buildGroupRoster version mods = GroupRoster {version, roster = mapMaybe rosterMember mods}
+buildGroupRoster ver mods = GroupRoster {version = ver, roster = mapMaybe rosterMember mods}
   where
     rosterMember m@GroupMember {memberId, memberPubKey, memberRole}
       | isRosterRole memberRole = (\k -> RosterMember {memberId, name = memberShortenedName m, key = MemberKey k, role = memberRole}) <$> memberPubKey
diff --git a/tests/ChatTests/Groups.hs b/tests/ChatTests/Groups.hs
index ef12b7ea31..7bd267257a 100644
--- a/tests/ChatTests/Groups.hs
+++ b/tests/ChatTests/Groups.hs
@@ -20,7 +20,7 @@ import Control.Monad (forM_, void, when)
 import Data.Bifunctor (second)
 import Data.ByteString (ByteString)
 import qualified Data.ByteString.Char8 as B
-import Data.Maybe (fromMaybe, isJust, listToMaybe, maybeToList)
+import Data.Maybe (fromMaybe, isJust, maybeToList)
 import Data.Time (UTCTime)
 import Data.Int (Int64)
 import Data.List (intercalate, isInfixOf)