diff --git a/class.ml b/class.ml
index 25df661161a77f3e917db3d01e9479fc19fc7f49..94b544fefff3ffb19026716b77cd3b0a55f2477a 100644
--- a/class.ml
+++ b/class.ml
@@ -27,7 +27,7 @@ module Inheritance_graph =
     (Fclang_datatype.Qualified_name)
     (struct
       type t = int * access_kind * vkind
-      let compare = Pervasives.compare
+      let compare = Transitioning.Stdlib.compare
       let default = (0, Private, VStandard)
      end)
 
diff --git a/fclang_datatype.ml b/fclang_datatype.ml
index 22ed1a7a6b4df6b03118c60e281b50199cf27755..ff7528218fb022302f6a04ec8eddd054e663fefd 100644
--- a/fclang_datatype.ml
+++ b/fclang_datatype.ml
@@ -216,7 +216,7 @@ module Template_parameter =
       type t = template_parameter
       let name = "Fclang_datatype.Template_parameter"
       let reprs = [TPConstant (IntCst (IInt,ICLiteral,Int64.of_int 0))]
-      let compare = Pervasives.compare
+      let compare = Transitioning.Stdlib.compare
       let equal = Datatype.from_compare
       let copy = Datatype.identity
       let hash = Hashtbl.hash
@@ -230,7 +230,7 @@ module Qualified_name =
       let reprs = [({prequalification = [QNamespace "foo"]; decl_name = "bar"},
                     TStandard)]
       let name = "Fclang_datatype.Qualified_name"
-      let compare = Pervasives.compare
+      let compare = Transitioning.Stdlib.compare
       let equal = Datatype.from_compare
       let copy = Datatype.identity
       let hash = Hashtbl.hash
@@ -265,7 +265,7 @@ module Qual_type =
       let reprs = [ { qualifier = [Const]; plain_type = Int IInt } ]
       let name = "Fclang_datatype.Qual_type"
       let copy = Datatype.identity
-      let compare = Pervasives.compare
+      let compare = Transitioning.Stdlib.compare
       let equal = Datatype.from_compare
       let hash = Hashtbl.hash
       let pretty = pretty_qual_type
diff --git a/reorder_defs.ml b/reorder_defs.ml
index 857c4433888526a7c13999efabac733e58ee2c25..96e2c8a10fe81c44223ac38577b17cc361d78b3c 100644
--- a/reorder_defs.ml
+++ b/reorder_defs.ml
@@ -54,10 +54,10 @@ module Dep_node = struct
 
   let compare x y =
     if x.id = -1 || y.id = -1 then begin
-      let res = Pervasives.compare x.kind y.kind in
+      let res = Transitioning.Stdlib.compare x.kind y.kind in
       if res = 0 then begin
-        let res = Pervasives.compare x.name y.name in
-        if res = 0 then Pervasives.compare x.is_def y.is_def else res
+        let res = Transitioning.Stdlib.compare x.name y.name in
+        if res = 0 then Transitioning.Stdlib.compare x.is_def y.is_def else res
       end else res
     end else begin
       let res = compare y.id x.id in