let update_group_project_name gnum pnum s = 
  do_something_group_project (fun p -> set_project_name p s) 
    (fun () -> debug (Printf.sprintf "!!! Setting name of project %s failed"
                     (convert_int_list_to_string pnum))) gnum pnum