anchor.diff:      let modifiers = List.empty
       let typeparams = List.empty
       let signature = formatType staticParam.Kind + (if staticParam.IsOptional then sprintf " (optional, default = %A)" staticParam.DefaultValue else "")
  -    let loc = defaultArg staticParam.ImplementationLocation staticParam.DeclarationLocation
  +    let loc = tryGetLocation staticParam
       let location = formatSourceLocation ctx.SourceFolderRepository loc
       MemberOrValue.Create(usage, modifiers, typeparams, signature, location)
   
  
positive.code:         UniqueUrlName = nameGen; 
          SourceFolderRepository = sourceFolderRepo }
  
    let formatSourceLocation (sourceFolderRepo : (string * string) option) (location : range) =
      sourceFolderRepo |> Option.map (fun (baseFolder, repo) -> 
          let basePath = Uri(Path.GetFullPath(baseFolder)).ToString()
          let docPath = Uri(Path.GetFullPath(location.FileName)).ToString()
  
          // Even though ignoring case might be wrong, we do that because
          // one path might be file:///C:\... and the other file:///c:\...  :-(
          if not <| docPath.StartsWith(basePath, StringComparison.InvariantCultureIgnoreCase) then
              Log.logf "Error occurs. Current source file '%s' doesn't reside in source folder '%s'" docPath basePath
              ""
          else
              let relativePath = docPath.[basePath.Length..]
              let uriBuilder = UriBuilder(repo)
              uriBuilder.Path <- uriBuilder.Path + relativePath
              String.Format("{0}#L{1}-{2}", uriBuilder.Uri, location.StartLine, location.EndLine) )
  
    let (|AllAndLast|_|) (list:'T list)= 
      if list.IsEmpty then None
  
negative.code:         | args when isItemIndexer -> String.concat tupSep args
          | args -> bracket (String.concat tupSep args))
      |> String.concat argSep
  
    let tryGetLocation (symbol: FSharpSymbol) =
      match symbol.ImplementationLocation with
      | Some loc -> Some loc
      | None -> symbol.DeclarationLocation
    
    let readMemberOrVal (ctx:ReadingContext) (v:FSharpMemberFunctionOrValue) = 
      let buildUsage (args:string option) = 
  