diff --git a/.config/init.ml b/.config/init.ml
index e81a606..25f68e2 100644
--- a/.config/init.ml
+++ b/.config/init.ml
@@ -62,7 +62,7 @@ let setup_workspace ~container cstore : unit Lwt.t =
         appendchild ~container
           Tyxml_js.Html.(
             a
-              ~a:[ a_class [ "window" ] ]
+              ~a:[ a_class Html_types.[ "window" ] ]
               [
                 div ~a:[ a_class [ "status" ] ] [ txt status ];
                 div