1 files changed, 2 insertions, 0 deletions
diff --git a/lib/system.mli b/lib/system.mli
index a91562cea9..a9ffd5b63e 100644
--- a/lib/system.mli
+++ b/lib/system.mli
@@ -42,6 +42,8 @@ val raw_extern_intern : int -> string ->
 val extern_intern : 
   int -> string -> (string -> 'a -> unit) * (load_path -> string -> 'a)
 
+val open_trapping_failure : (string -> 'a) -> string -> string -> 'a
+
 (*s Time stamps. *)
 
 type time