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);