X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fcomponents%2Fgetter%2Fhttp_getter_wget.ml;h=571479d78e1c949ff569fb202a1a45d96f4428c4;hb=bc389dd4724959688aafc1ede450794f47b8d0b5;hp=2052e7bd50953cc32879232f569ce4a1107f8ead;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/components/getter/http_getter_wget.ml b/helm/software/components/getter/http_getter_wget.ml
index 2052e7bd5..571479d78 100644
--- a/helm/software/components/getter/http_getter_wget.ml
+++ b/helm/software/components/getter/http_getter_wget.ml
@@ -66,5 +66,8 @@ let exists url =
   try
     ignore (Http_user_agent.head url);
     true
-  with Http_user_agent.Http_error _ -> false
+  with
+     Http_user_agent.Http_error _ -> false
+   | Not_found -> prerr_endline (Printf.sprintf "An object %s has metadata but no XML. This is an internal bug of ocaml-http: Zack, please fix it!" 
+                  url); assert false