diff --git a/basis/xml/tests/test.factor b/basis/xml/tests/test.factor index 01987a98ab..f37c3fa7ac 100644 --- a/basis/xml/tests/test.factor +++ b/basis/xml/tests/test.factor @@ -61,3 +61,4 @@ SYMBOL: xml-file [ T{ doctype-decl f "foo" } ] [ "" string>xml-chunk second ] unit-test [ T{ doctype-decl f "foo" T{ system-id f "blah.dtd" } } ] [ "" string>xml-chunk second ] unit-test [ T{ doctype-decl f "foo" T{ system-id f "blah.dtd" } } ] [ "" string>xml-chunk second ] unit-test +[ t ] [ "" dup string>xml-chunk [ write-xml-chunk ] with-string-writer = ] unit-test diff --git a/basis/xml/writer/writer.factor b/basis/xml/writer/writer.factor index 12601953f6..cd6fd944a4 100644 --- a/basis/xml/writer/writer.factor +++ b/basis/xml/writer/writer.factor @@ -112,7 +112,7 @@ M: system-id write-xml-chunk M: public-id write-xml-chunk "PUBLIC '" write [ pubid-literal>> write "' '" write ] - [ system-literal>> write "'>" write ] bi ; + [ system-literal>> write "'" write ] bi ; M: doctype-decl write-xml-chunk "