Incorrect branch backwards linking and count

[Enchufa2]

The following rollback

t <- create_trajectory() %>%
  timeout(1) %>% 
  branch(function() 1, T, 
         create_trajectory() %>%
           rollback(1))
t
#> simmer trajectory: anonymous, 2 activities
#> { Activity: Timeout(-) | delay: 1 }
#> { Activity: Branch(-) | merge: 1 }
#>   simmer trajectory: anonymous, 1 activities
#>   { Activity: Rollback(-) | amount: 1 (Timeout), times: 1 }

should point to branch, not to timeout. And there are 3 activities, not 2.