diff --git a/R/change_e.r b/R/change_e.r
index 0c3d4fc1..b64382c8 100644
--- a/R/change_e.r
+++ b/R/change_e.r
@@ -55,6 +55,7 @@ change_e <- function(ctl_file_in = "em.ctl",
   if (is.list(par_name)) par_name <- unlist(par_name)
   if (is.list(par_int)) par_int <- unlist(par_int)
   if (is.list(par_phase)) par_phase <- unlist(par_phase)
+  if (is.list(forecast_num)) forecast_num <- unlist(forecast_num)
   check_eqlength(
     "par_name" = par_name,
     "par_int" = par_int, "par_phase" = par_phase