Fix bug in record type definition in events.scm.