let
trans_request_store = ref (
Channel_message_store
.create ())