anchor.diff:  
         json.RemovePair(TKeyboardInfoFile.SLanguages);
         json.AddPair(TKeyboardInfoFile.SLanguages, olangs);
  +
  +      // Migration complete and subtags populated
  +      Exit;
       except
         on E:Exception do
         begin
  
positive.code: 
    {
    // Populate subtag names if needed
    nameAdded := False;
    v := json.GetValue(TKeyboardInfoFile.SLanguages);
    
    if v is TJSONObject then
  
negative.code:   alangs: TJSONArray;
    olangs: TJSONObject; 
    o: TJSONObject;
    i: Integer;
    id: string;
  begin
  