diff --git a/R/greedyMix.R b/R/greedyMix.R
index 53f3270..3b81b81 100644
--- a/R/greedyMix.R
+++ b/R/greedyMix.R
@@ -73,5 +73,5 @@ greedyMix <- function(
   )
 
   # Updateing results ==========================================================
-  return(c(out, "changesInLogml" = changesInLogml))
+  return(c(out, list("changesInLogml" = changesInLogml)))
 }
diff --git a/R/writeMixtureInfo.R b/R/writeMixtureInfo.R
index 97f2401..fd2e6ef 100644
--- a/R/writeMixtureInfo.R
+++ b/R/writeMixtureInfo.R
@@ -15,7 +15,6 @@ writeMixtureInfo <- function(
   logml, rowsFromInd, data, adjprior, priorTerm, outPutFile, inputFile,
   partitionSummary, popnames, fixedK, verbose
 ) {
-  changesInLogml <- list()
   ninds <- size(data, 1) / rowsFromInd
   npops <- size(COUNTS, 3)
   # Check that the names refer to individuals