diff --git a/DESCRIPTION b/DESCRIPTION
index ace1041..68b4e6b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: tidypop
 Title: Tidy Interface to Single Species Population Models
-Version: 0.0.0.9000
+Version: 0.0.0.9001
 Authors@R: person("Drew", "Tyre", email = "atyre2@unl.edu", role = c("aut", "cre"))
 Description: What the package does (one paragraph).
 Depends: R (>= 3.5.1)
diff --git a/R/iterator.R b/R/iterator.R
index 794d3e2..e934a7e 100644
--- a/R/iterator.R
+++ b/R/iterator.R
@@ -28,7 +28,7 @@ iterate_pop <- function(N0 = NULL, parms = NULL, popfun = NULL){
   # Now we "loop" and calculate N for each time
   # pass N[,] as a matrix to accomodate
   for (i in seq_along(parms$t[-last_t])){
-    N[i+1,] <- do.call(popfun, c(N0=N[i,], as.list(parms[i,])))
+    N[i+1,] <- do.call(popfun, c(N0=list(N[i,]), as.list(parms[i,])))
   }
   if(!is.null(names(N0))){
     # fix column names here -- if done before do.call() c() concatenates colnames