Fixed CDATA parsing bug

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

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 ;