diff --git a/R/get_add.R b/R/get_add.R
index 5390e9b..c176e32 100644
--- a/R/get_add.R
+++ b/R/get_add.R
@@ -426,7 +426,7 @@ gen_pt_add <- function(x, pt, sem_out, from = NA) {
         x_constr_out <- NULL
       }
     # Add free parameters
-    do_fit <- getOption("modelbpp.do_fit", TRUE)
+    do_fit <- getOption("modelbpp.do_fit", FALSE)
     if (length(x_free) > 0) {
         x_free_str <- par_names(pars_list = x_free)
         p_to_add <- sapply(x_free, paste0, collapse = "")
@@ -436,6 +436,15 @@ gen_pt_add <- function(x, pt, sem_out, from = NA) {
           model = pt,
           add = x_free_str,
           do.fit = do_fit,
+          baseline = FALSE,
+          h1 = FALSE,
+          implied = FALSE,
+          check.vcov = FALSE,
+          check.start = FALSE,
+          check.sigma.pd = FALSE,
+          check.gradient = FALSE,
+          check.post = FALSE,
+          samplestats = do_fit,
           optim.force.converged = TRUE,
           control = list(max.iter = 1)
         )
@@ -455,6 +464,15 @@ gen_pt_add <- function(x, pt, sem_out, from = NA) {
           object = sem_out,
           model = pt,
           do.fit = do_fit,
+          baseline = FALSE,
+          h1 = FALSE,
+          implied = FALSE,
+          check.vcov = FALSE,
+          check.start = FALSE,
+          check.sigma.pd = FALSE,
+          check.gradient = FALSE,
+          check.post = FALSE,
+          samplestats = do_fit,
           optim.force.converged = TRUE,
           control = list(max.iter = 1)
         )
diff --git a/R/get_drop.R b/R/get_drop.R
index 85386f2..cd6738e 100644
--- a/R/get_drop.R
+++ b/R/get_drop.R
@@ -232,7 +232,7 @@ gen_pt_drop <- function(x, pt, to, source_df = NA, sem_out) {
     p_to_drop_out <- lapply(x, function(x) {
         c(lhs = pt[x, "lhs"], op = pt[x, "op"], rhs = pt[x, "rhs"])
       })
-    do_fit <- getOption("modelbpp.do_fit", TRUE)
+    do_fit <- getOption("modelbpp.do_fit", FALSE)
     suppressWarnings(sem_out_update <- auto_ram(
       FUN = lavaan::update,
       object = sem_out,
@@ -245,6 +245,11 @@ gen_pt_drop <- function(x, pt, to, source_df = NA, sem_out) {
       check.start = FALSE,
       check.post = FALSE,
       check.vcov = FALSE,
+      h1 = FALSE,
+      implied = FALSE,
+      check.sigma.pd = FALSE,
+      check.gradient = FALSE,
+      samplestats = do_fit,
       control = list(max.iter = 1))
     )
     pt_update <- lavaan::parameterTable(sem_out_update)