X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fcic_annotations_cache%2FcicCache.ml;h=58a8f4197c8bb47d90374653e6ea4e810299daeb;hb=08a2b1a3f1a1e9af07850089f0e0838eb052223d;hp=8bc4be6c4fcca3f77d88a9b7c97b26c325ae77bc;hpb=ae326f646ef4c01b43d6da04201b427d1e175400;p=helm.git

diff --git a/helm/ocaml/cic_annotations_cache/cicCache.ml b/helm/ocaml/cic_annotations_cache/cicCache.ml
index 8bc4be6c4..58a8f4197 100644
--- a/helm/ocaml/cic_annotations_cache/cicCache.ml
+++ b/helm/ocaml/cic_annotations_cache/cicCache.ml
@@ -39,7 +39,13 @@ let get_annobj uri =
  let module G = Getter in
  let module U = UriManager in
   let cicfilename = G.getxml (U.cicuri_of_uri uri) in
-   let annobj = CicParser.annobj_of_xml cicfilename uri in
+  let cicbodyfilename =
+   match U.bodyuri_of_uri uri with
+      None -> None
+    | Some bodyuri ->
+       Some (G.getxml (U.cicuri_of_uri bodyuri))
+  in
+   let annobj = CicParser.annobj_of_xml cicfilename cicbodyfilename uri in
     annobj,
      if U.uri_is_annuri uri then
       begin