anchor.diff:  
     LoadHeader(aLoadStream);
   
  -  ParseSaveStream(aLoadStream);
  +  ParseStreamToDict(aLoadStream);
   end;
   
   
  
positive.code: end;
  
  
  procedure TKMRandomCheckLogger.ParseSaveStreamAndSaveAsText(aPath: String);
  begin
    ParseSaveStream;
    SaveAsText(aPath);
  end;
  
  
  procedure TKMRandomCheckLogger.SaveToPath(aPath: String);
  var
    SaveStream: TKMemoryStreamBinary;
  //  CompressionStream: TCompressionStream;
    CallerPair: TPair<Byte, AnsiString>;
  begin
    if not SAVE_RANDOM_CHECKS then
      Exit;
  
negative.code: 
      procedure LoadHeader(aLoadStream: TKMemoryStream);
  
  //    procedure ParseSaveStream;
      procedure ParseStreamToDict(aLoadStream: TKMemoryStream);
    public
      constructor Create;
      destructor Destroy; override;
  