let (uri, typeno, consno) = indconuri_of_uri s in
mutconstruct uri typeno consno)
with
- | Invalid_argument _ -> raise (UriManager.IllFormedUri s)
+ | Invalid_argument _ | Not_found -> raise (UriManager.IllFormedUri s)
(** {2 Helm's objects shorthands} *)