method attr name =
    let sv = call_method sv "attr" [sv_of_string name] in
    (* sv_is_undef doesn't work properly XXX *)
    if sv_is_undef sv then None else Some (string_of_sv sv)