diff --git a/bytecomp/translmod.ml b/bytecomp/translmod.ml
index 44e092e..31776f8 100644
--- a/bytecomp/translmod.ml
+++ b/bytecomp/translmod.ml
@@ -101,7 +101,7 @@ let mod_prim name =
     transl_path
       (fst (Env.lookup_value (Ldot (Lident "CamlinternalMod", name))
                              Env.empty))
-  with Not_found | Ident.Nearly_found _ ->
+  with Not_found | Ident.Found_nearly _ ->
     fatal_error ("Primitive " ^ name ^ " not found.")
 
 let undefined_location loc =
diff --git a/bytecomp/translobj.ml b/bytecomp/translobj.ml
index c287fbc..3e1206d 100644
--- a/bytecomp/translobj.ml
+++ b/bytecomp/translobj.ml
@@ -24,7 +24,7 @@ let oo_prim name =
   try
     transl_path
       (fst (Env.lookup_value (Ldot (Lident "CamlinternalOO", name)) Env.empty))
-  with Not_found | Ident.nearly_found _ ->
+  with Not_found | Ident.Found_nearly _ ->
     fatal_error ("Primitive " ^ name ^ " not found.")
 
 (* Share blocks *)