diff --git a/basis/xml/writer/writer-tests.factor b/basis/xml/writer/writer-tests.factor
index 5f4f84f74c..e27c500f33 100644
--- a/basis/xml/writer/writer-tests.factor
+++ b/basis/xml/writer/writer-tests.factor
@@ -75,3 +75,7 @@ IN: xml.writer.tests
     ] map [XML <h2>Timings</h2> <table><-></table> XML]
     pprint-xml
 ] unit-test
+
+{ "<test name=\"bob\"/>" } [
+    "test" { { "name" "bob" } } { } <tag> xml>string
+] unit-test