diff --git a/R/RunModel_Lag.R b/R/RunModel_Lag.R
index 593faacae1f34226858ca51aac57aa0ee6f4440e..7889967059b1646cc2e8c1d368897f8f3a28fdad 100644
--- a/R/RunModel_Lag.R
+++ b/R/RunModel_Lag.R
@@ -81,7 +81,7 @@ RunModel_Lag <- function(InputsModel, RunOptions, Param, QcontribDown) {
           # If warm-up period is not enough long complete beginning with first value
           ini <- c(rep(ini[1], floor(PT[iUpBasins] + 1) - length(ini)), ini)
         }
-        return(ini)
+        return(as.vector(ini))
       }
     )
   }