anchor.diff:      result := HandleTxRequest(AContext, request, response, session)
   end;
   
  +function TTerminologyWebServer.RedirectToNoVersion(AContext: TIdContext; request: TIdHTTPRequestInfo; session: TFhirSession; response: TIdHTTPResponseInfo; secure: boolean): string;
  +var
  +  doc : String;
  +begin
  +  doc := request.Document.Substring(FServer.webBase.Length+1);
  +  if request.UnparsedParams <> '' then
  +    doc := doc + '?'+request.UnparsedParams;
  +  response.Redirect(doc);
  +  result := 'Redirect to base';
  +end;
  +
   function TTerminologyWebServer.ProcessNoVersion(AContext: TIdContext; request: TIdHTTPRequestInfo; session : TFhirSession; response: TIdHTTPResponseInfo; secure : boolean) : String;
   var
     path : string;
  
positive.code:   result := path.StartsWith(FServer.webBase+'/tx');
  end;
  
  function TTerminologyWebServer.HandlesRequestNoVersion(path: String): boolean;
  begin
    result := path.StartsWith('/snomed') or path.StartsWith('/loinc') ;
  
negative.code:     destructor Destroy; Override;
      function HandlesRequestVersion(path : String) : boolean;
      function HandlesRequestNoVersion(path : String) : boolean;
      function HandlesRequestInNoVersion(path: String): boolean;
      function ProcessVersion(AContext: TIdContext; request: TIdHTTPRequestInfo; session : TFhirSession; response: TIdHTTPResponseInfo; secure : boolean) : string;
      function RedirectToNoVersion(AContext: TIdContext; request: TIdHTTPRequestInfo; session : TFhirSession; response: TIdHTTPResponseInfo; secure : boolean) : string;
      function ProcessNoVersion(AContext: TIdContext; request: TIdHTTPRequestInfo; session : TFhirSession; response: TIdHTTPResponseInfo; secure : boolean) : string;
    end;
  
  