anchor.diff:        end
         else if request.subId <> '' then
         begin
  -        if (fmt <> response.Format) and (response.Format <> ffUnspecified) and (response.Format <> ffXhtml) then
  -        begin
  -          response.HTTPCode := 500;
  -          response.Message := 'Server Error';
  -          response.resource := BuildOperationOutcome(request.Lang, 'Mime Type mismatch. Original request was for '+MIMETYPES_TFHIRFormat[fmt]+', current request is for '+MIMETYPES_TFHIRFormat[response.format]);
  -        end
  -        else if request.SubId = 'zip' then
  +        if request.SubId = 'zip' then
           begin
             m := TAdvMemoryStream.Create;
             try
  
positive.code:         logt('miss: ' + request.Document);
        end;
      end;
    finally
      MarkExit(AContext);
      Session.Free;
  
negative.code:   FName := Name;
    FIni := ini;
  
    if (FolderExists('c:\temp')) then
      FInLog := TLogger.Create('c:\temp\fhirserver-http-in.log')
    else
      FInLog := TLogger.Create(IncludeTrailingPathDelimiter(SystemTemp)+'fhirserver-http-in.log');
    FInLog.Policy.FullPolicy := lfpChop;
    FInLog.Policy.MaximumSize := 100*1024*1024;
    FInLog.Policy.AllowExceptions := false;
  
    if (FolderExists('c:\temp')) then
      FOutLog := TLogger.Create('c:\temp\fhirserver-http-out.log')
    else
      FOutLog := TLogger.Create(IncludeTrailingPathDelimiter(SystemTemp)+'fhirserver-http-out.log');
    FOutLog.Policy.FullPolicy := lfpChop;
    FOutLog.Policy.MaximumSize := 100*1024*1024;
    FOutLog.Policy.AllowExceptions := false;
  
    FClients := TAdvList<TFHIRWebServerClientInfo>.Create;
    FPatientViewServers := TDictionary<String, String>.Create;
  {$IFDEF MSWINDOWS}
  