UM.buri_of_uri (UM.uri_of_string suri)
with UM.IllFormedUri _ ->
let _,u,_,_ = Librarian.baseuri_of_script ~include_paths:[] suri in
UM.buri_of_uri (UM.uri_of_string suri)
with UM.IllFormedUri _ ->
let _,u,_,_ = Librarian.baseuri_of_script ~include_paths:[] suri in