diff --git a/code/A98_PredictorsExtract.R b/code/A98_PredictorsExtract.R
index a1153a17627a99c39506fb1534c6a43265f9b17b..19e18c0367976ff4d5ed536da691834840ef67bd 100644
--- a/code/A98_PredictorsExtract.R
+++ b/code/A98_PredictorsExtract.R
@@ -90,7 +90,7 @@ PredExtr <- function(x.shp, myfunction=NA, output=NA,
       return(nearest.tmp)
     }
 
-    out[i.toassign,] <- mypredictor@data[nearest[,"ID"],]
+    out[i.toassign,] <- tmp.mypredictor@data[nearest[,"ID"],]
    }
     if(!is.na(output)) {write.csv(out, file = output)} else{return(out)}
   }