diff --git a/DESCRIPTION b/DESCRIPTION
index 25865eb3fe85736292824009f98571a95839b621..3033d5edde2b88ca90c17ba528e50dd78af5d1e7 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: airGR
 Type: Package
 Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.0.6.3
+Version: 1.0.6.4
 Date: 2017-04-05
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),
diff --git a/R/DataAltiExtrapolation_Valery.R b/R/DataAltiExtrapolation_Valery.R
index 397b2de5f4c06d27a18bf6c9799dedd9db1ab54e..a3f05c96764a832957206b31e7897b9a113d3176 100644
--- a/R/DataAltiExtrapolation_Valery.R
+++ b/R/DataAltiExtrapolation_Valery.R
@@ -453,8 +453,7 @@ DataAltiExtrapolation_Valery <- function(DatesR,
         LayerPrecip_df <- LayerPrecip_df / rowMeans(LayerPrecip_df) * Precip
         LayerPrecip_df[is.nan(LayerPrecip_df)] <- 0
       }
-      LayerPrecip <-
-        lapply(seq_len(ncol(LayerPrecip_df)), function(x) LayerPrecip_df[, x])
+      LayerPrecip <- as.list(LayerPrecip_df)
     }
   
   
diff --git a/R/ErrorCrit_KGE2.R b/R/ErrorCrit_KGE2.R
index da8c6ce85c471b372ba65970b7d5829ab46600e2..42d5111661cf42077a7cca407d62c76973c81b53 100644
--- a/R/ErrorCrit_KGE2.R
+++ b/R/ErrorCrit_KGE2.R
@@ -65,7 +65,7 @@ ErrorCrit_KGE2 <- function(InputsCrit,OutputsModel, warnings = TRUE, verbose = T
   if(is.numeric(Crit) & is.finite(Crit)){ SubCritValues[iCrit] <- Crit; }
 
 
-##SubErrorCrit_____KGE_gama______________________
+##SubErrorCrit_____KGE_gamma______________________
   iCrit <- iCrit+1;
   SubCritNames[iCrit]  <-  paste(CritName," cv(sim)/cv(obs)          =", sep = "")
   SubCritValues[iCrit] <- NA;