let new_abs str base =
  let sv = call_class_method "URI" "new_abs" [sv_of_string str;
                                              sv_of_string base] in
  new uri sv