diff --git a/R/PlotMatrix.R b/R/PlotMatrix.R
index c6395fc6ef406115107800c0d967b407687b6724..8c830d74b4761f1f3d19a98f4f5a3cbef271d5f6 100644
--- a/R/PlotMatrix.R
+++ b/R/PlotMatrix.R
@@ -105,7 +105,7 @@ PlotMatrix <- function(var, brks = NULL, cols = NULL,
   # If there is any filenames to store the graphics, process them
   # to select the right device 
   if (!is.null(fileout)) {
-    deviceInfo <- s2dverification:::.SelectDevice(fileout = fileout,
+    deviceInfo <- .SelectDevice(fileout = fileout,
                                 width = 80 * ncols * figure.width, 
                                 height = 80 * nrows,
                                 units = size_units, res = res)