+ UM.IllFormedUri _ ->
+ files_to_remove := suri :: !files_to_remove;
+ let u = MatitacleanLib.baseuri_of_file suri in
+ if String.length u < 5 || String.sub u 0 5 <> "cic:/" then
+ begin
+ MatitaLog.error ("File " ^ suri ^ " defines a bad baseuri: "^u);
+ exit 1
+ end
+ else
+ u