X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaMisc.ml;h=bb745f7030f968817f544fa4a49d1828eba4795e;hb=b2abc81f0b76224f6f4f526feaf1fefd6178ae7d;hp=266aec526920ad8d96bda49f7cca4cd0d29a2861;hpb=d4c6f8464dc183326b7f7b4dc6171e69b482a26b;p=helm.git

diff --git a/matita/matitaMisc.ml b/matita/matitaMisc.ml
index 266aec526..bb745f703 100644
--- a/matita/matitaMisc.ml
+++ b/matita/matitaMisc.ml
@@ -30,7 +30,10 @@ open Printf
 (** Functions "imported" from Http_getter_misc *)
 
 let normalize_dir = Http_getter_misc.normalize_dir
-let strip_suffix = Http_getter_misc.strip_suffix
+let strip_suffix ~suffix s = 
+  try 
+    Http_getter_misc.strip_suffix ~suffix s
+  with Invalid_argument _ -> s
 
 let absolute_path file =
   if file.[0] = '/' then file else Unix.getcwd () ^ "/" ^ file