diff --git a/DESCRIPTION b/DESCRIPTION
index 4b23a4243f64fc755bf3dd47a878ec1b29e3dc1a..17ef49c037593d28ef519e83a35f5535a5811f8e 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: easyNCDF
 Title: Tools to Easily Read/Write NetCDF Files into/from Multidimensional R Arrays 
-Version: 0.0.3
+Version: 0.0.4
 Authors@R: c(
     person("BSC-CNS", role = c("aut", "cph")),
     person("Nicolau", "Manubens", , "nicolau.manubens@bsc.es", role = c("aut", "cre")))
diff --git a/R/NcToArray.R b/R/NcToArray.R
index 5c7a91aaa367586c4659717c3e6a9c1599cdd9df..fc4b438a475b0348eebab3da4640983d1549e520 100644
--- a/R/NcToArray.R
+++ b/R/NcToArray.R
@@ -206,7 +206,7 @@ NcToArray <- function(file_to_read, dim_indices = NULL, vars_to_read = NULL,
             ##  original_ncvar_get_inner <- ncdf4:::ncvar_get_inner
             ##  assignInNamespace('ncvar_get_inner', .ncvar_get_inner, 'ncdf4')
             }
-            var_result <- do.call('[', c(list(.ncvar_get(file_object, var_name, start, count, collapse_degen = FALSE)),
+            var_result <- do.call('[', c(list(ncvar_get(file_object, var_name, start, count, collapse_degen = FALSE)),
                                          lapply(indices_to_take, function(x) if (is_single_na(x)) TRUE else x - min(x) + 1), list(drop = FALSE)))
             ### Support for character strings
             ##if ((file_object[['var']][[var_name]][['prec']] == 'char') && 
diff --git a/easyNCDF-manual.pdf b/easyNCDF-manual.pdf
index 996f034aea01eb3d1c3923e7a71544db2efea811..4234fef492cd27f25c4947c8cbcad7eedc47cdbf 100644
Binary files a/easyNCDF-manual.pdf and b/easyNCDF-manual.pdf differ