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