Merge bug 25671

1 files changed, 3 insertions, 1 deletions

diff --git a/src/gm.erl b/src/gm.erl
index 3f0909e8..28ebfd47 100644
--- a/src/gm.erl
+++ b/src/gm.erl
@@ -1053,7 +1053,7 @@ prune_or_create_group(Self, GroupName, TxnFun) ->
               fun () ->
                       GroupNew = #gm_group { name    = GroupName,
                                              members = [Self],
-                                             version = ?VERSION_START },
+                                             version = get_version(Self) },
                       case mnesia:read({?GROUP_TABLE, GroupName}) of
                           [] ->
                               mnesia:write(GroupNew),
@@ -1294,6 +1294,8 @@ remove_erased_members(MembersState, View) ->
                                  MembersState1)
                 end, blank_member_state(), all_known_members(View)).
 
+get_version({Version, _Pid}) -> Version.
+
 get_pid({_Version, Pid}) -> Pid.
 
 get_pids(Ids) -> [Pid || {_Version, Pid} <- Ids].