let process_startup_message () = 
                        log_output Debug
                                "In Rcomm.From_group_to_application.process_startup_message";
                        To_application.send_to_application 
            Rcomm_to_application.Startup None
                                (Some begin fun () -> receive_request [Status_req] end)