X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatitaclean.ml;h=466104644e246168b85b14e35efa67715187a5aa;hb=4a62bde42e3655a7829b9281d9b9057dc32c0471;hp=8409eb7bcc34127eecd4a644544f54fd3a097fa3;hpb=c780c9756b67d116b1d5b5149ae758fa613c5fe6;p=helm.git

diff --git a/matita/matitaclean.ml b/matita/matitaclean.ml
index 8409eb7bc..466104644 100644
--- a/matita/matitaclean.ml
+++ b/matita/matitaclean.ml
@@ -95,7 +95,7 @@ let main () =
             try
               UM.buri_of_uri (UM.uri_of_string suri)
             with UM.IllFormedUri _ ->
-              let _,u,_ = Librarian.baseuri_of_script ~include_paths:[] suri in
+              let _,u,_,_ = Librarian.baseuri_of_script ~include_paths:[] suri in
               if String.length u < 5 || String.sub u 0 5 <> "cic:/" then begin
                 HLog.error (sprintf "File %s defines a bad baseuri: %s"
                   suri u);