X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fmatitaclean.ml;h=cf8bf42f4467f0628e93dad1d2d9b625a87112ec;hb=1d3ea10488ce2982213b1da9a18420fbb5491409;hp=98d5ffa6b540005783b49b573c458bb9018d9eca;hpb=aef659e5893b4bf8c8544d0c54714e10f5b5493a;p=helm.git

diff --git a/helm/software/matita/matitaclean.ml b/helm/software/matita/matitaclean.ml
index 98d5ffa6b..cf8bf42f4 100644
--- a/helm/software/matita/matitaclean.ml
+++ b/helm/software/matita/matitaclean.ml
@@ -95,7 +95,7 @@ let main () =
             try
               UM.buri_of_uri (UM.uri_of_string suri)
             with UM.IllFormedUri _ ->
-              let u =
+              let u,_ =
                DependenciesParser.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"