anchor.diff:  procedure TKMapInfo.LoadFromFile(const aPath: UnicodeString);
   var
     S: TKMemoryStream;
  -  ErrorStr: UnicodeString;
  +  errorStr: UnicodeString;
   begin
     if not FileExists(aPath) then Exit;
   
  
positive.code: constructor TKMapsCollection.Create(aMapFolders: TKMapFolderSet; aSortMethod: TKMapsSortMethod = smByNameDesc; aDoSortWithFavourites: Boolean = False);
  begin
    inherited Create;
    fMapFolders := aMapFolders;
    fSortMethod := aSortMethod;
    fDoSortWithFavourites := aDoSortWithFavourites;
  
negative.code: procedure TKMapsCollection.MoveMap(aIndex: Integer; const aName: UnicodeString; aMapFolder: TKMapFolder);
  var
    I: Integer;
    dest: UnicodeString;
  begin
    Assert(InRange(aIndex, 0, fCount - 1));
    if Trim(aName) = '' then Exit;
  
    Lock;
    try
      dest := ExeDir + MAP_FOLDER[aMapFolder] + PathDelim + aName + PathDelim;
      Assert(fMaps[aIndex].Path <> dest);
  
      KMMoveFolder(fMaps[aIndex].Path, dest);
  
      //Remove the map from our list
      fMaps[aIndex].Free;
  