diff --git a/sw/lib/ocaml/airframe.ml b/sw/lib/ocaml/airframe.ml
index e10bea7099..f250f81c43 100644
--- a/sw/lib/ocaml/airframe.ml
+++ b/sw/lib/ocaml/airframe.ml
@@ -135,7 +135,7 @@ let from_xml = function
   | _ -> failwith "Airframe.from_xml: unreachable"
 
 let from_file = fun filename ->
-  let af = from_xml (Xml.parse_file filename) in
+  let af = from_xml (ExtXml.parse_file filename) in
   { af with filename }
 
 
diff --git a/sw/lib/ocaml/autopilot.ml b/sw/lib/ocaml/autopilot.ml
index 77509b32dc..123d2745b1 100644
--- a/sw/lib/ocaml/autopilot.ml
+++ b/sw/lib/ocaml/autopilot.ml
@@ -43,7 +43,7 @@ let from_xml = function
   | _ -> failwith "Autopilot.from_xml: unreachable"
 
 let from_file = fun filename ->
-  let ap = from_xml (Xml.parse_file filename) in
+  let ap = from_xml (ExtXml.parse_file filename) in
   { ap with filename }
 
 
diff --git a/sw/lib/ocaml/flight_plan.ml b/sw/lib/ocaml/flight_plan.ml
index ba3ad43477..493e53d68a 100644
--- a/sw/lib/ocaml/flight_plan.ml
+++ b/sw/lib/ocaml/flight_plan.ml
@@ -64,7 +64,7 @@ let from_xml = function
   | _ -> failwith "Flight_plan.from_xml: unreachable"
 
 let from_file = fun filename ->
-  let fp = from_xml (Xml.parse_file filename) in
+  let fp = from_xml (ExtXml.parse_file filename) in
   { fp with filename }
 
 
diff --git a/sw/lib/ocaml/module.ml b/sw/lib/ocaml/module.ml
index f09eeb7fa9..7d29a6553d 100644
--- a/sw/lib/ocaml/module.ml
+++ b/sw/lib/ocaml/module.ml
@@ -332,7 +332,7 @@ let from_xml = fun xml ->
     makefiles = List.rev m.makefiles
   }
 
-let from_file = fun filename -> from_xml (Xml.parse_file filename)
+let from_file = fun filename -> from_xml (ExtXml.parse_file filename)
 
 (** search and parse a module xml file and return a Module.t *)
 (* FIXME search folder path: <PPRZ_PATH>/*/<module_name[_type]>.xml *)
diff --git a/sw/lib/ocaml/radio.ml b/sw/lib/ocaml/radio.ml
index df49350b63..b98eaee2da 100644
--- a/sw/lib/ocaml/radio.ml
+++ b/sw/lib/ocaml/radio.ml
@@ -84,5 +84,5 @@ let from_xml = function
   | _ -> failwith "Radio.from_xml: unreachable"
 
 let from_file = fun filename ->
-  let r = from_xml (Xml.parse_file filename) in
+  let r = from_xml (ExtXml.parse_file filename) in
   { r with filename }
diff --git a/sw/lib/ocaml/settings.ml b/sw/lib/ocaml/settings.ml
index cfdfa9e765..1e9c24d35a 100644
--- a/sw/lib/ocaml/settings.ml
+++ b/sw/lib/ocaml/settings.ml
@@ -98,7 +98,7 @@ let from_xml = function
   | _ -> failwith "Settings.from_xml: unreachable"
 
 let from_file = fun filename ->
-  let s = from_xml (Xml.parse_file filename) in
+  let s = from_xml (ExtXml.parse_file filename) in
   { s with filename }
 
 (**
diff --git a/sw/lib/ocaml/telemetry.ml b/sw/lib/ocaml/telemetry.ml
index 22d8ee9654..4b252c0a98 100644
--- a/sw/lib/ocaml/telemetry.ml
+++ b/sw/lib/ocaml/telemetry.ml
@@ -102,7 +102,7 @@ let from_xml = function
   | _ -> failwith "Telemetry.from_xml: unreachable"
 
 let from_file = fun filename ->
-  let t = from_xml (Xml.parse_file filename) in
+  let t = from_xml (ExtXml.parse_file filename) in
   { t with filename }