diff --git a/R/WMSCapabilities.R b/R/WMSCapabilities.R
index c440dec..014ffb8 100644
--- a/R/WMSCapabilities.R
+++ b/R/WMSCapabilities.R
@@ -75,7 +75,7 @@ WMSCapabilities <- R6Class("WMSCapabilities",
      if(pretty){
        layers <- do.call("rbind", lapply(layers, function(x){
          return(data.frame(
-           name = x$getName(),
+           name = if(!is.null(x$getName())){x$getName()}else{NA},
            title = x$getTitle(),
            stringsAsFactors = FALSE
          ))