let process_select_request tdsc =
         log_output Debug "In Rcomm.To_transport.process_select_request";
         assert(THash.mem select_request_store tdsc);
         let message,cont = THash.find select_request_store tdsc in
         THash.remove select_request_store tdsc;
         (* call the contuation if it is there *)
         if cont <> None then 
            (Util.get_val_of cont) ();
         assert(match message with
            |  Select (d,_,_) ->
                  true
            |  _ ->
                  false
         );
         message