diff --git a/extra/xml/test/test.factor b/extra/xml/test/test.factor
index d9c7ca7e9d..a2fd2813ed 100644
--- a/extra/xml/test/test.factor
+++ b/extra/xml/test/test.factor
@@ -42,3 +42,4 @@ SYMBOL: xml-file
 ] unit-test
 [ "foo" ] [ "<x y='foo'/>" string>xml "y" <name-tag> over
 at swap "z" <name-tag> >r tuck r> swap set-at T{ name f "blah" "z" f } swap at ] unit-test
+[ "foo" ] [ "<boo><![CDATA[foo]]></boo>" string>xml children>string ] unit-test
diff --git a/extra/xml/tokenize/tokenize.factor b/extra/xml/tokenize/tokenize.factor
index d89ae57de9..5e3bf1edfa 100644
--- a/extra/xml/tokenize/tokenize.factor
+++ b/extra/xml/tokenize/tokenize.factor
@@ -137,7 +137,7 @@ SYMBOL: ns-stack
     CHAR: > expect ;
 
 : take-cdata ( -- string )
-    "[CDATA[" expect-string "]]>" take-string next ;
+    "[CDATA[" expect-string "]]>" take-string ;
 
 : take-directive ( -- directive )
     CHAR: > take-char <directive> next ;