diff --git a/R/plot.OutputsModel.R b/R/plot.OutputsModel.R
index 438b6e9a17bd3f2153e36e8fbdc76b3af7b6b0a2..91a7504a1c1db89501475e71472831a93211e382 100644
--- a/R/plot.OutputsModel.R
+++ b/R/plot.OutputsModel.R
@@ -5,9 +5,15 @@ plot.OutputsModel <- function(x, Qobs = NULL, IndPeriod_Plot = NULL, BasinArea =
                               verbose = TRUE, ...) {
 
 
-  ## save default graphical parameters and resetting on exit
+  ## save default graphical & time parameters and resetting on exit
   opar <- par(no.readonly = TRUE)
-  on.exit(par(opar))
+  olctime <- Sys.getlocale(category = "LC_TIME")
+  Sys.setlocale(category = "LC_TIME", locale = "English_United Kingdom")
+  on.exit({
+    par(opar)
+    Sys.setlocale(category = "LC_TIME", locale = olctime)
+  })
+
 
 
   OutputsModel <- x