\ / This software is distributed as is, NO WARRANTY.
V_______________________________________________________________ *)
-exception ObjectNotFound of string Lazy.t
+exception ObjectNotFound of Brg.message
val set_obj: (Brg.obj -> 'a) -> Brg.obj -> 'a