2 files changed, 3 insertions, 3 deletions

diff --git a/kernel/names.ml b/kernel/names.ml
index fc3453611c..83cea889a4 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -256,7 +256,7 @@ let kind_of_string = function
 
 (*s Section paths *)
 
-type qualid = string list * string
+type qualid = string list * identifier
 
 let make_qualid p s = (p,s)
 let repr_qualid q = q
diff --git a/kernel/names.mli b/kernel/names.mli
index edcadf634c..6912d66654 100644
--- a/kernel/names.mli
+++ b/kernel/names.mli
@@ -60,8 +60,8 @@ val string_of_dirpath : dir_path -> string
 (*s Qualified idents are names relative to the current visilibity of names *)
 type qualid
 
-val make_qualid : dir_path -> string -> qualid
-val repr_qualid : qualid -> dir_path * string
+val make_qualid : dir_path -> identifier -> qualid
+val repr_qualid : qualid -> dir_path * identifier
 
 val string_of_qualid : qualid -> string
 val pr_qualid : qualid -> std_ppcmds