diff --git a/R/who.R b/R/who.R
index 34117cb9..ba8818e9 100644
--- a/R/who.R
+++ b/R/who.R
@@ -70,7 +70,7 @@
       )
     }
   } # end 400+
-  json_data <- rawToChar(http_response$content)
+  json_data <- httr::content(http_response, simplifyDataFrame=TRUE)
   jsonlite::fromJSON(json_data)
 }
 
@@ -91,7 +91,8 @@
 }
 
 #' Get the children of a concept (ICD-10 chapter, code or range)
-#' @param concept_id NULl for root, concept string for any leaf or intermediate.
+#' @param concept_id \code{NULL} for root, concept string for any leaf or
+#' intermediate.
 #' @examples
 #' .dl_icd10who_children("XXII")
 #' .dl_icd10who_children("U84")
@@ -301,5 +302,10 @@
 }
 
 .downloading_who_message <- function() {
-  message("Downloading or parsing cached WHO ICD data. This may take a few minutes. Data is cached, so if there is a download error, repeating the instruction will return the data immediately if cached, or pick up where it left off.") # nolint
+  message(paste(
+    "Downloading or parsing cached WHO ICD data.",
+    "This may take a few minutes.",
+    "Data is cached, so repeating the command will return immediately,",
+    "or finish caching, then return."
+  ))
 }