diff --git a/R/Surr_Train.R b/R/Surr_Train.R
index a10d1c9005d904c2f6304b915a3eeaed34f183da..5a678527cf8b15f82cab68572c550ccafdb49469 100644
--- a/R/Surr_Train.R
+++ b/R/Surr_Train.R
@@ -1264,7 +1264,7 @@ write_evals <- function( hist_bins = 25, write_errors=TRUE, Surrogate_performanc
             ## class(model_list[[1]])
         }
         else if (write_errors) { 
-            Residuals <<- c( Residuals, list( rep(NA, nrow(Fout) ) )) ## list encapsulates it into nested level
+            Residuals <<- c( Residuals, list( rep(NA, nrow(SRes) ) )) ## list encapsulates it into nested level
         }
     })
 }