diff --git a/DESCRIPTION b/DESCRIPTION
index c900266..c2f6a26 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: rd2markdown
 Title: Convert Rd Files into Markdown
-Version: 0.0.7
+Version: 0.0.8
 Authors@R:
     c(
       person(
diff --git a/NEWS.md b/NEWS.md
index a12970a..2b40c72 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,8 @@
+rd2markdown 0.0.8
+-----------------
+
+* Escape HTML tags in the output of `rd2markdown.enumerate` and `rd2markdown.itemize`
+  
 rd2markdown 0.0.7
 -----------------
 
diff --git a/R/rd2markdown.R b/R/rd2markdown.R
index c39f9ea..5bd232c 100644
--- a/R/rd2markdown.R
+++ b/R/rd2markdown.R
@@ -370,7 +370,7 @@ rd2markdown.enumerate <- function(x, fragments = c(), ...) {
   is_item <- cumsum(is_item)[cumsum(is_item) > 0L & !is_item]
   items <- lapply(split(x, is_item), map_rd2markdown, collapse = "")
   items <- lapply(items, function(xi) indent_newlines(trimws(xi), 3))
-  res <- paste0(seq_along(items), ". ", items, collapse = "\n")
+  res <- escape_html_tags(paste0(seq_along(items), ". ", items, collapse = "\n"))
   block(res)
 }
 
@@ -381,7 +381,7 @@ rd2markdown.itemize <- function(x, fragments = c(), ...) {
   items <- vapply(items, map_rd2markdown, character(1L), ..., collapse = "")
   items <- Filter(nchar, trimws(items))
   items <- lapply(items, function(xi) indent_newlines(trimws(xi), 3))
-  res <- paste0(" * ", items, collapse = "\n")
+  res <- escape_html_tags(paste0(" * ", items, collapse = "\n"))
   block(res)
 }