diff --git a/RBBGCMuso/R/setupMuso.R b/RBBGCMuso/R/setupMuso.R
index 2a98789..a36598c 100644
--- a/RBBGCMuso/R/setupMuso.R
+++ b/RBBGCMuso/R/setupMuso.R
@@ -295,26 +295,26 @@ setupMuso <- function(executable=NULL,
                     annualVarCodes = gsub("\\s.*","",annualVarCodes)
                     )
 
-    if(getOption("RMuso_version")==6){
-        manFile <- scan(iniInput[2],what="",n=1,skip=44,sep=" ") # HARDCODED -> UNTIL JSON VERSION
-        mgm <- readLines(manFile)
-        mgmConn <- file(manFile,open="r")
-        manTypes <- c("planting","thinning","mowing","grazing","harvesting","ploughing","fertilizing","irrigating")
-        mgmFiles <- rep("none",length(manTypes))
-        if(scan(mgmConn,skip=3,n=1,what=integer())==1){
-            mgmFiles[1] <- scan(mgmConn,skip=1,n=1,what="", sep = " ")
-        }
-        for(i in 2:length(mgmFiles)){
-           if(scan(mgmConn,skip=2,n=1,what=integer())==1){
-               mgmFiles[i] <- scan(mgmConn,skip=1,n=1,what="", sep =" " )
-           } else {
-               blackhole<-scan(mgmConn,skip =1, n=1,what="")
-           }
-        }
-        names(mgmFiles) <- manTypes
-        settings[["management"]] <- mgmFiles
-        close(manConn)
-    }
+    # if(getOption("RMuso_version")==6){
+    #     manFile <- scan(iniInput[2],what="",n=1,skip=44,sep=" ") # HARDCODED -> UNTIL JSON VERSION
+    #     mgm <- readLines(manFile)
+    #     mgmConn <- file(manFile,open="r")
+    #     manTypes <- c("planting","thinning","mowing","grazing","harvesting","ploughing","fertilizing","irrigating")
+    #     mgmFiles <- rep("none",length(manTypes))
+    #     if(scan(mgmConn,skip=3,n=1,what=integer())==1){
+    #         mgmFiles[1] <- scan(mgmConn,skip=1,n=1,what="", sep = " ")
+    #     }
+    #     for(i in 2:length(mgmFiles)){
+    #        if(scan(mgmConn,skip=2,n=1,what=integer())==1){
+    #            mgmFiles[i] <- scan(mgmConn,skip=1,n=1,what="", sep =" " )
+    #        } else {
+    #            blackhole<-scan(mgmConn,skip =1, n=1,what="")
+    #        }
+    #     }
+    #     names(mgmFiles) <- manTypes
+    #     settings[["management"]] <- mgmFiles
+    #     close(manConn)
+    # }
 
     
     # if(writep!=nrow(grepHelper)){