diff --git a/DESCRIPTION b/DESCRIPTION
index a86f83779b6ad523fbd05a42272a7ec89aa9ccf7..7b08b8ae5615474f6f1303f8a9298cbe1b4c6b05 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.9.72
+Version: 1.0.9.73
 Date: 2018-01-30
 Authors@R: c(
   person("Laurent", "Coron", role = c("aut", "trl")),
diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 66ef22c15591c34c728f651778e5272f5ea5354a..bb8163f04af3cc5c979159767e674bf1fbe33d70 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -131,7 +131,11 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
     #   if (Sum1 == 0 & Sum2 == 3) { width = 10; height = 03; }
     #   dev.new(width = width, height = height)
     # }
-    layout(matlayout);
+    
+    opar <- par(no.readonly = TRUE)
+    on.exit(par(opar))
+    
+    layout(matlayout)
 
     Xaxis <- 1:length(IndPeriod_Plot);
     if (BOOL_Dates) {