diff --git a/R/RunModel_Lag.R b/R/RunModel_Lag.R
index e6b8fe565ae05b296527222d1b18b3366b08bc92..63c99bcbde3e487a1caad606c40dee665b59a068 100644
--- a/R/RunModel_Lag.R
+++ b/R/RunModel_Lag.R
@@ -163,5 +163,7 @@ RunModel_Lag <- function(InputsModel, RunOptions, Param, QcontribDown) {
     OutputsModel$Param <- c(Param, OutputsModel$Param)
   }
 
+  class(OutputsModel) <- c(class(OutputsModel), "SD")
+
   return(OutputsModel)
 }