diff --git a/R/infection.FUN.R b/R/infection.FUN.R
index b6c9e564ec2c82d69329d6533d7c9fb2cf120504..181d78d30be356ded691b49c387ba18ed5a15bcd 100644
--- a/R/infection.FUN.R
+++ b/R/infection.FUN.R
@@ -100,7 +100,7 @@ infection.FUN <- function(dat, at, seed = NULL){
         
         # Transmission from exposed
         ## Expected acts
-        acts <- round(ifelse(length(act.rate.i) > 1, act.rate.i[at - 1], act.rate.i) *
+        acts <- round(ifelse(length(act.rate.e) > 1, act.rate.e[at - 1], act.rate.e) *
                           dat$epi$num[at - 1] / 2 )
         
         ## Edgelist: s, e