let process_timeout_message id thunk =
                        log_output Debug
                                "In Rcomm.From_group_to_application.process_timeout_message";
                        To_application.send_to_application 
            (Rcomm_to_application.Timeout(id,thunk)) None
                                (Some begin fun () -> receive_request [Timer_req] end)