diff --git a/R/tags.R b/R/tags.R
index fc0753f6f..bcdf157e5 100644
--- a/R/tags.R
+++ b/R/tags.R
@@ -83,7 +83,7 @@ createTag <- function(`_tag_name`, varArgs) {
       # process lists of children
       else if (is.list(value)) {
         for(child in value) {
-          if (isTag(value))
+          if (isTag(child))
             tag <- appendTagChild(tag, child)
           else
             tag <- appendTagChild(tag, as.character(child))