diff --git a/demo/regional.R b/demo/regional.R
index 81ddae1..2b56014 100755
--- a/demo/regional.R
+++ b/demo/regional.R
@@ -16,7 +16,7 @@
 
 fetchAndPrepareMap <- function(map, pick) {
   cat("Downloading GADM map data for ", map, "\n")
-  sp <- readRDS(url(sprintf("https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_%s_sp.rds", map)))
+  sp <- readRDS(url(sprintf("https://geodata.ucdavis.edu/gadm/gadm3.6/Rsp/gadm36_%s_sp.rds", map)))
   if (pick > 0) {
     sp@polygons <- sp@polygons[pick]
     sp@data <- sp@data[pick,]