diff --git a/basis/xml/errors/errors.factor b/basis/xml/errors/errors.factor
index 11df24c978..fea516374d 100644
--- a/basis/xml/errors/errors.factor
+++ b/basis/xml/errors/errors.factor
@@ -49,7 +49,7 @@ XML-ERROR: mismatched open close ;
 
 TUPLE: unclosed line column tags ;
 
-: unclosed ( -- * )
+: throw-unclosed ( -- * )
     get-line get-column
     xml-stack get rest-slice [ first name>> ] map
     \ unclosed boa throw ;
diff --git a/basis/xml/xml.factor b/basis/xml/xml.factor
index 58a5af16b0..91a48f17bd 100644
--- a/basis/xml/xml.factor
+++ b/basis/xml/xml.factor
@@ -155,7 +155,7 @@ PRIVATE>
         init-xml init-xml-stack
         call
         [ process ] xml-loop
-        done? [ unclosed ] unless
+        done? [ throw-unclosed ] unless
         xml-stack get first second
     ] with-state ; inline