What about avoiding the l_dt local variable such as 

        a_header.put_header_key_value ({HTTP_HEADER_NAMES}.header_date, (create {HTTP_DATE}.make_from_date_time (l_time)).rfc1123_string)

?