let process_set_timer_message event req =
         log_output Debug "In Rcomm.From_transport.process_set_timer_message";
         To_group_from_transport.send_to_group_from_trans
                                (To_group_from_transport.ToGrp.Set_timer(event)) None
            (Some begin fun () -> receive_request [req] end)