diff --git a/DESCRIPTION b/DESCRIPTION
index fdf4fd4..ffa5a3b 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -6,7 +6,7 @@ LazyLoad: yes
 Authors@R: 
   c(person(given=c("David", "L."),
            family="Miller",
-           role=c("aut")),
+           role=c("cre")),
     person(given="Eric",
            family="Rexstad",
            role="ctb"),
diff --git a/R/varprop_check.R b/R/varprop_check.R
index 216ad40..8231f70 100644
--- a/R/varprop_check.R
+++ b/R/varprop_check.R
@@ -7,8 +7,12 @@ varprop_check <- function(object){
 
   # make a skeleton for the detection function parameters over all models
   parskel <- list()
-  for(i in seq_along(object$old_model$ddf)){
-    parskel[[i]] <- object$old_model$ddf[[i]]$par
+  if(class(object) == "list") {
+    for(i in seq_along(object$old_model$ddf)){
+      parskel[[i]] <- object$old_model$ddf[[i]]$par
+    }
+  } else if(class(object) == "dsm_varprop"){
+    parskel[[1]] <- object$old_model$ddf$par
   }
 
   # which parameters in the GAM are only in the refit?
@@ -19,6 +23,10 @@ varprop_check <- function(object){
   ddf_corrections <- relist(extra_gam_pars, parskel)
 
   vp_diag <- list()
+  
+  if(class(object) == "dsm_varprop") {
+    object$old_model$ddf <- list(object$old_model$ddf)
+  }
 
   for(ii in seq_along(object$old_model$ddf)){
     # get the data in order