(set! (.#.event.name  (.#.event.direction  (.#.port.name  o)))
  (lambda _ (type-helper (log-typed (.#.port.name  o) "#.event.name " e) '#x:reply-type)))