diff --git a/R/pest2hydroPSO.R b/R/pest2hydroPSO.R
index 7c65ca556041cd5c4e2bb6b71319703edf2fae4d..7e3601f7e9335e26974db9c4bfe07e748b516df2 100644
--- a/R/pest2hydroPSO.R
+++ b/R/pest2hydroPSO.R
@@ -205,7 +205,7 @@ pest2hydroPSO <- function(pst.fname,
   ntpl      <- as.numeric(files[1])
   nins      <- as.numeric(files[2])
 
-  if (verbose) message("[ Number of .tpl found        :", ntpls, " ]") 
+  if (verbose) message("[ Number of .tpl found        :", ntpl, " ]") 
   if (verbose) message("[ Number of .ins found        :", nins, " ]")    
   
   # Getting Param names and Ranges