anchor.diff:    LIndexFileFullPath: string;
   begin
     inherited;
  -  LRelativeURL := StringReplace(AContext.Request.PathInfo, '/', PathDelim, [rfReplaceAll]);
  +  LRelativeURL := StringReplace(AContext.Request.PathInfo, '/', PathDelim, [rfReplaceAll]).Substring(BasePath.Length);
     CheckRelativePath(LRelativeURL);
  -  LFullPath := FExpandedRootFolder + LRelativeURL;
  +  if LRelativeURL.StartsWith(PathDelim) then
  +    LFullPath := FExpandedRootFolder + LRelativeURL
  +  else
  +    LFullPath := FExpandedRootFolder + PathDelim + LRelativeURL;
   
     if DirectoryExists(LFullPath) then
     begin
  
positive.code:     '  <p>{Detail}' + sLineBreak +
      '</html>';
  
  { TWiRLFileSystemEngine }
  
  procedure TWiRLFileSystemEngine.CheckRelativePath(const ARelativeURL: string);
  
negative.code: 
  type
    TWiRLFileSystemErrorEvent = procedure (ASender: TObject; AStatusCode: Integer; AContext: TWiRLContext) of object;
  
    TStringFunc = TFunc<string>;
  
    TWiRLFileSystemEngine = class(TWiRLCustomEngine)
    private
  