diff --git a/typing/oprint.ml b/typing/oprint.ml
index e894027..b1017c3 100644
--- a/typing/oprint.ml
+++ b/typing/oprint.ml
@@ -121,6 +121,8 @@ let print_out_value ppf tree =
       [] -> ()
     | (name, tree) :: fields ->
         if not first then fprintf ppf ";@ ";
+        (* do not print full module path for record fields except the first one *)
+        let name = match first, name with false, Oide_dot (_, s) -> Oide_ident s | _ -> name in
         fprintf ppf "@[<1>%a@ =@ %a@]" print_ident name (cautious print_tree_1)
           tree;
         print_fields false ppf fields