anchor.diff:  procedure TKMemoryStream.CompressAndAppendStream(aStream: TKMemoryStream; const aMarker: string);
   var
     S: TKMemoryStream;
  +  {$IFNDEF NO_COMPRESSION}
     CS: TCompressionStream;
  +  {$ENDIF}
   begin
     S := TKMemoryStreamBinary.Create(True);
     try
  +    {$IFDEF NO_COMPRESSION}
  +    S.fShouldBeCompressed := False;
  +    S.CopyFrom(aStream, 0);
  +    {$ELSE}
       CS := TCompressionStream.Create(GetCompressionLvl, S);
       try
         CS.CopyFrom(aStream, 0);
       finally
         CS.Free;
       end;
  +    {$ENDIF}
   
       AppendNotCompressedStream(S, aMarker);
     finally
  
positive.code: procedure TKMemoryStream.LoadFromFileCompressed(const aFileName: string; const aMarker: string);
  var
    S: TKMemoryStream;
    DS: TDecompressionStream;
  begin
    S := TKMemoryStreamBinary.Create;
    try
      S.LoadFromFile(aFileName);
      S.CheckMarker(aMarker);
      DS := TDecompressionStream.Create(S);
      try
        CopyFromDecompression(DS);
        Position := 0;
      finally
        DS.Free;
      end;
    finally
      S.Free;
    end;
  
negative.code:     
    if isCompressed then
    begin
      {$IFDEF NO_COMPRESSION}
      raise Exception.Create('Using compression streams is not allowed! F.e. on Delphi 11 Alexandria under debug');
      {$ELSE}
      S := TKMemoryStreamBinary.Create(True);
      try
        S.CopyFrom(Self, streamSize);
  