diff --git a/R/quiz-xml.R b/R/quiz-xml.R
index 1959d5e..0974cab 100644
--- a/R/quiz-xml.R
+++ b/R/quiz-xml.R
@@ -71,7 +71,7 @@ fence_question <- function(x) {
     generalfeedback = ""
   )
 
-  if(length(opts) > 0) x <- x[-opts_loc]
+  if(length(opts_loc) > 0) x <- x[-opts_loc]
   c(
     paste0(":::{.question", paste0(" ", names(opts), "='", opts, collapse = "'"), "'}"),
     x,