anchor.diff:              set (cur())
   
           JQuery.JQuery.Of(JS.Document.Body).Click(fun el ev ->
  -            let target = ev.Target
  -            if target.LocalName = "a" then
  -                let href = target.GetAttribute("href")
  -                if not (isNull href) then
  -                    let p = href |> Route.FromUrl
  -                    match parse p with
  -                    | Some a -> 
  -                        set a
  -                        ev.PreventDefault()
  -                    | None -> ()
  +            match JQuery.JQuery.Of(ev.Target).Closest("a").ToArray() with
  +            | [| target |] ->
  +                if target.LocalName = "a" then
  +                    let href = target.GetAttribute("href")
  +                    if not (isNull href) then
  +                        let p = href |> Route.FromUrl
  +                        match parse p with
  +                        | Some a -> 
  +                            set a
  +                            ev.PreventDefault()
  +                        | None -> ()
  +            | _ -> ()
           ).Ignore
           
           var.View
  
positive.code: open WebSharper
  open WebSharper.JavaScript
  open WebSharper.Sitelets
  open System.Runtime.CompilerServices
  
  [<CompiledName "InstallRouter">]
  [<JavaScript>]
  
negative.code:                 JS.Window.History.PushState(null, null, url)
          )
          var
  
  open System.Runtime.CompilerServices
  
  [<Extension; JavaScript>]
  type RouterExtensions =
  