Generator functions are not reset

[Enchufa2]

So this code produces no output:

t <- create_trajectory() %>% timeout(1)

simmer() %>% 
  add_generator("dummy", t, at(0, 1, 2)) %>%
  run() %>%
  reset() %>%
  run() %>%
  get_mon_arrivals()

Instead, 3 arrivals would be expected.