anchor.diff:    finally
       vars.Free;
     end;
  -
  -end;
  -
  +end;
  +
  +{$IFNDEF FHIR2}
   procedure TFhirWebServer.ReturnJavaStatus(request: TIdHTTPRequestInfo; response: TIdHTTPResponseInfo);
   var
     s : String;
  
positive.code:     Procedure Stop;
      Procedure Transaction(stream: TStream; init : boolean; name, base: String; ini: TFHIRServerIniFile; callback: TInstallerCallback);
      Procedure ReturnProcessedFile(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; path: String; secure: boolean; variables: TDictionary<String, String> = nil); overload;
      Procedure ReturnJavaStatus(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo); overload;
      Procedure ReturnProcessedFile(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; claimed, actual: String; secure: boolean; variables: TDictionary<String, String> = nil); overload;
      Procedure RunPostHandler(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; claimed, actual: String; secure: boolean);
  
  
negative.code:   response.FreeContentStream := true;
    response.contentType := 'application/json';
  end;
  {$ENDIF}
  
  procedure TFhirWebServer.ReturnProcessedFile(request : TIdHTTPRequestInfo; response: TIdHTTPResponseInfo; Session: TFHIRSession; path: String; secure: boolean; variables: TDictionary<String, String> = nil);
  begin
  