X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaScript.ml;h=9dc930f1811993c75dd8b8b19596b8c46f235827;hb=3c8a3783837bf7773437b12a089b8edf93879b5d;hp=d5cad512a825109bb03f4c9138cb111e126eb84e;hpb=4a62bde42e3655a7829b9281d9b9057dc32c0471;p=helm.git

diff --git a/matita/matitaScript.ml b/matita/matitaScript.ml
index d5cad512a..9dc930f18 100644
--- a/matita/matitaScript.ml
+++ b/matita/matitaScript.ml
@@ -720,11 +720,15 @@ object (self)
 
   method has_name = filename_ <> None
   
-  method buri_of_current_file = 
+  method buri_of_current_file =
     match filename_ with
     | None -> default_buri 
     | Some f ->
-        try let _root, buri, _fname, _tgt = Librarian.baseuri_of_script f in buri
+        try 
+          let _root, buri, _fname, _tgt = 
+            Librarian.baseuri_of_script ~include_paths f 
+          in 
+          buri
         with Librarian.NoRootFor _ -> default_buri
 
   method filename = match filename_ with None -> default_fname | Some f -> f
@@ -1105,7 +1109,6 @@ prerr_endline ("## " ^ string_of_int parsed_text_length);
     HLog.debug (sprintf "%d statements:" (List.length statements));
     List.iter HLog.debug statements;
     HLog.debug ("Current file name: " ^ self#filename);
-    HLog.debug ("Current buri: " ^ self#buri_of_current_file);
 end
 
 let _script = ref None