let called_after md ts =
   match md.call_time_stamp with
     None -> true
   | Some cts -> cts >= ts