diff --git a/doc/developer/check_api/check_code.ml b/doc/developer/check_api/check_code.ml
index af97a61a127ec8163d0943cad369456fb65272f6..2a7c7f719e356568d7dc0c462f29a7e0bbf2b520 100644
--- a/doc/developer/check_api/check_code.ml
+++ b/doc/developer/check_api/check_code.ml
@@ -251,6 +251,7 @@ module Generator (G : Odoc_html.Html_generator) = struct
       | Type.Type_variant l ->
         let print_one constr =
           last_type <- last_type ^ " | " ^ constr.Type.vc_name ;
+          last_name <- t.Type.ty_name;
           (match constr.Type.vc_args with
           | Odoc_type.Cstr_tuple [] -> ()
           | Odoc_type.Cstr_tuple l ->