diff --git a/src/client/html.ml b/src/client/html.ml
index ef46661..7ea6151 100644
--- a/src/client/html.ml
+++ b/src/client/html.ml
@@ -36,7 +36,7 @@ module Header = struct
El.div ~at:[ class' "nav-right" ] l
in
let children = S.map (fun t -> [ left; right t.session ]) t_s in
- let el = El.nav ~at:[ id "top" ] [] in
+ let el = El.nav [] in
Elr.def_children el children;
el
diff --git a/src/client/html_thread.ml b/src/client/html_thread.ml
index d104938..9be0ce0 100644
--- a/src/client/html_thread.ml
+++ b/src/client/html_thread.ml
@@ -105,13 +105,7 @@ let nav_el kind t_s w =
let update_el =
El.a ~at:[ href (Page.to_path (Thread w)) ] [ el_txt "Update" ]
in
- let at =
- match kind with
- | `Top ->
- (* id="top" is set on nav bar instead *)
- [ class' "sub-nav" ]
- | `Bottom -> [ class' "sub-nav"; id str ]
- in
+ let at = [ class' "sub-nav"; id str ] in
let el =
El.div ~at
[ Html_util.new_thread_link_el t_s