diff --git a/R/Utils.R b/R/Utils.R
index dadf299f108a0fc502665519638403e38ecdbda5..6aa1f33f9e5dafbef3ca55578ce38f55c50765bb 100644
--- a/R/Utils.R
+++ b/R/Utils.R
@@ -30,7 +30,7 @@
   NameFunMod <- ifelse(test = FeatMod$Pkg %in% "airGR",
                        yes  = paste("RunModel", FeatMod$NameMod, sep = "_"),
                        no   = FeatMod$NameMod)
-  FunMod <- lapply(NameFunMod, FUN = get)
+  FunMod <- lapply(NameFunMod, FUN = match.fun)
   IdMod <- which(sapply(FunMod, FUN = function(x) identical(FUN_MOD, x)))
   if (length(IdMod) < 1) {
     stop("'FUN_MOD' must be one of ", paste(NameFunMod, collapse = ", "))