let process_message_request tdsc msg req =
         log_output Debug "In Rcomm.From_transport.process_message_request";
         let rdsc = TransHash.find thash tdsc in
         begin match msg with 
         |  Message (_,pid,iov) ->
               To_group_from_transport.send_to_group_from_trans
                                           (To_group_from_transport.ToGrp.Message(rdsc,pid,iov)) 
                  (Some rdsc)
                  (Some begin fun () -> receive_request [req] end) 
         |  _ ->
               raise(Invalid_argument
                  ("In Rcomm.From_transport.process_message_request: "^
                  (string_of_message msg)))
         end