anchor.diff:    end;
   end;
   
  +function port(actual, default : integer) : String;
  +begin
  +  if actual = default then
  +    result := ''
  +  else
  +    result := ':' + inttostr(actual);
  +end;
  +
   Constructor TFhirWebServer.Create(ini: TFHIRServerIniFile; name: String; TerminologyServer: TTerminologyServer; Context: TFHIRServerContext);
   var
     txu: String;
  
positive.code: 
    loadConfiguration;
  
    FServerContext.FormalURLPlain := 'http://' + FIni.ReadString(voMaybeVersioned, 'web', 'host', '') + ':' + inttostr(FStatedPort);
    FServerContext.FormalURLSecure := 'https://' + FIni.ReadString(voMaybeVersioned, 'web', 'host', '') + ':' + inttostr(FStatedSSLPort);
    FServerContext.FormalURLPlainOpen := 'http://' + FIni.ReadString(voMaybeVersioned, 'web', 'host', '') + ':' + inttostr(FStatedPort) + FBasePath;
    FServerContext.FormalURLSecureOpen := 'https://' + FIni.ReadString(voMaybeVersioned, 'web', 'host', '') + ':' + inttostr(FStatedSSLPort) + FBasePath;
    FServerContext.FormalURLSecureClosed := 'https://' + FIni.ReadString(voMaybeVersioned, 'web', 'host', '') + ':' + inttostr(FStatedSSLPort) + FSecurePath;
    FServerContext.ClientApplicationVerifier := TClientApplicationVerifier.Create;
    ServerContext.JWTServices := TJWTServices.Create;
    ServerContext.JWTServices.host := FHost;
  
negative.code:   i: integer;
  begin
    result := ServeUnknownCertificate or FCertificateIdList.Find(Certificate.FingerprintAsString, i);
  end;
  
  function TFhirWebServer.EndPointDesc(secure: boolean): String;
  