anchor.diff:      finally
         S.Free;
       end;
  +    {$ENDIF}
     end
     else
     begin
  
positive.code: uses
    Classes, SysUtils, KM_Points, KM_CommonTypes
    {$IFDEF WDC OR FPC_FULLVERSION >= 30200}, KM_WorkerThread{$ENDIF};
  
  
  type
  
negative.code: procedure TKMemoryStream.LoadFromFileCompressed(const aFileName: string; const aMarker: string);
  var
    S: TKMemoryStream;
    {$IFNDEF NO_COMPRESSION}
    DS: TDecompressionStream;
    {$ENDIF}
  begin
    S := TKMemoryStreamBinary.Create;
    try
      S.LoadFromFile(aFileName);
      S.CheckMarker(aMarker);
      {$IFDEF NO_COMPRESSION}
      CopyFrom(S, S.Size - S.Position);
      {$ELSE}
      DS := TDecompressionStream.Create(S);
      try
        CopyFromDecompression(DS);
      finally
        DS.Free;
      end;
      {$ENDIF}
      Position := 0;
    finally
      S.Free;
    end;
  