X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=components%2Fcic%2FcicParser.ml;h=8334ccfb62e65aac3e4162731b23d2b3078b5597;hb=241dd3fc882e24a1d3a386a9c612aa8fc720abdb;hp=49a5a1ab7cc5d3c48e6a9b9a15a04aca4d0f122f;hpb=e134b6f156268364d3027e73910c19e9c7e09838;p=helm.git

diff --git a/components/cic/cicParser.ml b/components/cic/cicParser.ml
index 49a5a1ab7..8334ccfb6 100644
--- a/components/cic/cicParser.ml
+++ b/components/cic/cicParser.ml
@@ -772,7 +772,7 @@ let parse uri filename =
   | Getter_failure _ as exn ->
       raise exn
   | exn ->
-      raise (Parser_failure ("uncaught exception: " ^ Printexc.to_string exn))
+      raise (Parser_failure ("CicParser: uncaught exception: " ^ Printexc.to_string exn))
 
 (** {2 API implementation} *)