anchor.diff:        if LMethodName <> '' then
         begin
           LResourceMethodPath := GetPath(LResourceMethod);
  -        LMethodPath := (AApplication.Engine as TWiRLEngine).BasePath + AApplication.BasePath + LResourcePath;
  +
  +        LMethodPath := IncludeLeadingSlash((AApplication.Engine as TWiRLEngine).BasePath) +
  +          IncludeLeadingSlash(AApplication.BasePath) + IncludeLeadingSlash(LResourcePath);
           if (not LMethodPath.EndsWith('/')) and (not LResourceMethodPath.StartsWith('/')) then
             LMethodPath := LMethodPath + '/';
           LMethodPath := LMethodPath + LResourceMethodPath;
  
positive.code:   end;
    Result := False;
  end;
  
  { TSwaggerFilter }
  
  
negative.code:       else
          AJSON.AddPair(TJSONPair.Create('type', 'number'));
      end;
    else
      AJSON.AddPair(TJSONPair.Create('type', 'string'));
    end;
  