let process_create_message gdesc proc_info = 
         let vdesc = ViewmgrDescriptor.create gdesc in
         To_group.send_viewmanager_message 
            (Viewmanager_to_group.Created (gdesc,vdesc)) (Some begin fun () ->
               (* TODO: Make sure this is the right request to make *)
               receive_request viewmanager_request
            end)