X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=components%2Fcic%2FcicParser.ml;h=8334ccfb62e65aac3e4162731b23d2b3078b5597;hb=6e01bb1ae52fe45ce77a7f950efb5feb295e82b1;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} *)