anchor.diff:            KeyValuePair(k, html) ]
       Comment.Create(blurb, full, sections)
   
  -  let readXmlComment (urlMap : IUrlHolder) (doc : XElement) =
  +  let findCommand = (function
  +    | String.StartsWithWrapped ("[", "]") (ParseCommand(k, v), rest) -> 
  +        Some (k, v)
  +    | _ -> None)
  +
  +  let readXmlComment (urlMap : IUrlHolder) (doc : XElement) (cmds: IDictionary<_, _>)=
   
      let full = new StringBuilder()
      let rec readElement (e : XElement) =
        Seq.iter (fun (x : XNode) ->
         if x.NodeType = XmlNodeType.Text then
  -       full.Append((x :?> XText).Value) |> ignore
  +       let text = (x :?> XText).Value
  +       match findCommand text with
  +       | Some (k,v) -> cmds.Add(k,v)
  +       | None -> full.Append(text) |> ignore
         elif x.NodeType = XmlNodeType.Element then
           let elem = x :?> XElement
           match elem.Name.LocalName with
  
positive.code:             Log.verbf "Could not find documentation for '%s'! (You can ignore this message when you have not written documentation for this member)" xmlSig
          dict[], Comment.Empty
      | Some el ->
          if ctx.MarkdownComments then
            let sum = el.Element(XName.Get "summary")
            let value = if sum = null then el.Value else sum.Value
            let lines = removeSpaces value
            let cmds = new System.Collections.Generic.Dictionary<_, _>()
            let findCommand = (function
                  | String.StartsWithWrapped ("[", "]") (ParseCommand(k, v), rest) -> 
                      Some (k, v)
                  | _ -> None)
            let text =
              lines |> Seq.filter (findCommand >> (function
                  | Some (k, v) -> 
  
negative.code:                 |> (addMissingLinkToTypes ctx)
            cmds :> IDictionary<_, _>, readMarkdownComment doc
          else
            cmds :> IDictionary<_, _>, readXmlComment ctx.UrlMap el cmds
  
    let readComment ctx xmlSig = readCommentAndCommands ctx xmlSig |> snd
  
  