anchor.diff:  end;
   
   
  -procedure TKMemoryStream.LoadFromStreamCompressed(var aStream: TKMemoryStream; const aMarker: string = '');
  +procedure TKMemoryStream.LoadFromStreamCompressed(aStream: TKMemoryStream; const aMarker: string = '');
   {$IFNDEF NO_COMPRESSION}
   var
     DS: TDecompressionStream;
  
positive.code:     procedure SaveToFileCompressed(const aFileName: string; const aMarker: string);
      procedure LoadFromFileCompressed(const aFileName: string; const aMarker: string);
  
      procedure SaveToStreamCompressed(var aStream: TKMemoryStream; const aMarker: string = '');
      procedure LoadFromStreamCompressed(var aStream: TKMemoryStream; const aMarker: string = '');
  
      procedure AppendStream(aStream: TKMemoryStream; const aMarker: string);
      procedure TrimToPosition;
  
negative.code: end;
  
  
  procedure TKMemoryStream.SaveToStreamCompressed(aStream: TKMemoryStream; const aMarker: string = '');
  {$IFNDEF NO_COMPRESSION}
  var
    CS: TCompressionStream;
  