diff --git a/llvm/test/Bindings/Ocaml/ext_exc.ml b/llvm/test/Bindings/Ocaml/ext_exc.ml
index 79543515dfc4..b4d2e6dc6414 100644
--- a/llvm/test/Bindings/Ocaml/ext_exc.ml
+++ b/llvm/test/Bindings/Ocaml/ext_exc.ml
@@ -1,5 +1,6 @@
 (* RUN: %ocamlopt -warn-error A llvm.cmxa llvm_bitreader.cmxa llvm_executionengine.cmxa %s -o %t
  * RUN: %t </dev/null
+ * XFAIL: vg_leak
  *)
 let context = Llvm.global_context ()
 (* this used to crash, we must not use 'external' in .mli files, but 'val' if we