diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 66450cb813..93213630b7 100644
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -218,7 +218,7 @@ CONSTANT: invalid-url "javascript:alert('Invalid URL in farkup');"
 
 : render-code ( string mode -- xml )
     [ string-lines ] dip htmlize-lines
-    [XML <pre><-></pre> XML] ;
+    XML-CHUNK[[ <pre><-></pre> ]] ;
 
 GENERIC: (write-farkup) ( farkup -- xml )
 
@@ -243,15 +243,15 @@ M: table (write-farkup) "table" farkup-inside ;
 
 : write-link ( href text -- xml )
     [ check-url link-no-follow? get "nofollow" and ] dip
-    [XML <a href=<-> rel=<->><-></a> XML] ;
+    XML-CHUNK[[ <a href=<-> rel=<->><-></a> ]] ;
 
 : write-image-link ( href text -- xml )
     disable-images? get [
         2drop
-        [XML <strong>Images are not allowed</strong> XML]
+        XML-CHUNK[[ <strong>Images are not allowed</strong> ]]
     ] [
         [ check-url ] [ f like ] bi*
-        [XML <img src=<-> alt=<->/> XML]
+        XML-CHUNK[[ <img src=<-> alt=<->/> ]]
     ] if ;
 
 : open-link ( link -- href text )
@@ -267,15 +267,15 @@ M: code (write-farkup)
     [ string>> ] [ mode>> ] bi render-code ;
 
 M: line (write-farkup)
-    drop [XML <hr/> XML] ;
+    drop XML-CHUNK[[ <hr/> ]] ;
 
 M: line-break (write-farkup)
-    drop [XML <br/> XML] ;
+    drop XML-CHUNK[[ <br/> ]] ;
 
 M: table-row (write-farkup)
     child>>
-    [ (write-farkup) [XML <td><-></td> XML] ] map
-    [XML <tr><-></tr> XML] ;
+    [ (write-farkup) XML-CHUNK[[ <td><-></td> ]] ] map
+    XML-CHUNK[[ <tr><-></tr> ]] ;
 
 M: string (write-farkup) ;
 
diff --git a/basis/furnace/chloe-tags/chloe-tags.factor b/basis/furnace/chloe-tags/chloe-tags.factor
index fc7f826bc4..09dedd0edb 100644
--- a/basis/furnace/chloe-tags/chloe-tags.factor
+++ b/basis/furnace/chloe-tags/chloe-tags.factor
@@ -74,12 +74,12 @@ CHLOE: a
     [
         [ a-attrs ]
         [ compile-children>xml-string ] bi
-        [ <unescaped> [XML <a><-></a> XML] second swap >>attrs ]
+        [ <unescaped> XML-CHUNK[[ <a><-></a> ]] second swap >>attrs ]
         [xml-code]
     ] compile-with-scope ;
 
 CHLOE: base
-    compile-a-url [ [XML <base href=<->/> XML] ] [xml-code] ;
+    compile-a-url [ XML-CHUNK[[ <base href=<->/> ]] ] [xml-code] ;
 
 : hidden-nested-fields ( -- xml )
     nested-forms get " " join f like nested-forms-key
@@ -93,7 +93,7 @@ CHLOE: base
         _ render-hidden
         hidden-nested-fields
         form-modifications
-        [XML <div style="display: none;"><-><-><-></div> XML]
+        XML-CHUNK[[ <div style="display: none;"><-><-><-></div> ]]
     ] [code] ;
 
 : (compile-form-attrs) ( method action -- )
@@ -122,18 +122,18 @@ CHLOE: form
         [ hidden-fields ]
         [ compile-children>xml-string ] tri
         [
-            <unescaped> [XML <form><-><-></form> XML] second
+            <unescaped> XML-CHUNK[[ <form><-><-></form> ]] second
                 swap >>attrs
             write-xml
         ] [code]
     ] compile-with-scope ;
 
 : button-tag-markup ( -- xml )
-    <XML
+    XML-DOC[[
         <t:form class="inline" xmlns:t="http://factorcode.org/chloe/1.0">
             <div style="display: inline;"><button type="submit"></button></div>
         </t:form>
-    XML> body>> clone ;
+    ]] body>> clone ;
 
 : add-tag-attrs ( attrs tag -- )
     attrs>> swap assoc-union! drop ;
diff --git a/basis/furnace/recaptcha/recaptcha.factor b/basis/furnace/recaptcha/recaptcha.factor
index fff1f61610..b4971a7d95 100644
--- a/basis/furnace/recaptcha/recaptcha.factor
+++ b/basis/furnace/recaptcha/recaptcha.factor
@@ -23,7 +23,7 @@ M: recaptcha call-responder*
 
 : (render-recaptcha) ( url -- xml )
     dup
-    [XML
+    XML-CHUNK[[
         <script type="text/javascript"
            src=<->>
         </script>
@@ -36,7 +36,7 @@ M: recaptcha call-responder*
            <input type="hidden" name="recaptcha_response_field"
                value="manual_challenge"/>
         </noscript>
-    XML] ;
+    ]] ;
 
 : recaptcha-url ( secure? -- ? )
     "https" "http" ? "://www.google.com/recaptcha/api/challenge" append
diff --git a/basis/furnace/utilities/utilities.factor b/basis/furnace/utilities/utilities.factor
index 7bf2e35ef6..b7d5832450 100644
--- a/basis/furnace/utilities/utilities.factor
+++ b/basis/furnace/utilities/utilities.factor
@@ -86,7 +86,7 @@ M: object modify-form drop f ;
 
 : hidden-form-field ( value name -- xml )
     over [
-        [XML <input type="hidden" value=<-> name=<->/> XML]
+        XML-CHUNK[[ <input type="hidden" value=<-> name=<->/> ]]
     ] [ drop ] if ;
 
 CONSTANT: nested-forms-key "__n"
diff --git a/basis/help/html/html.factor b/basis/help/html/html.factor
index 717542600b..adf5fd85e1 100644
--- a/basis/help/html/html.factor
+++ b/basis/help/html/html.factor
@@ -69,11 +69,11 @@ M: pathname url-of
 
 : help-stylesheet ( stylesheet -- xml )
     "vocab:help/html/stylesheet.css" ascii file-contents
-    swap "\n" glue [XML <style><-></style> XML] ;
+    swap "\n" glue XML-CHUNK[[ <style><-></style> ]] ;
 
 : help-navbar ( -- xml )
     "conventions" >link topic>filename
-    [XML
+    XML-CHUNK[[
         <div class="navbar">
         <b> Factor Documentation </b> |
         <a href="/">Home</a> |
@@ -84,7 +84,7 @@ M: pathname url-of
         </form>
         <a href="http://factorcode.org" style="float:right; padding: 4px;">factorcode.org</a>
         </div>
-     XML] ;
+     ]] ;
 
 : bijective-base26 ( n -- name )
     [ dup 0 > ] [ 1 - 26 /mod char: a + ] "" produce-as nip reverse! ;
diff --git a/basis/html/components/components-tests.factor b/basis/html/components/components-tests.factor
index d8e81b78a7..7860f0718d 100644
--- a/basis/html/components/components-tests.factor
+++ b/basis/html/components/components-tests.factor
@@ -199,7 +199,7 @@ M: link-test link-href drop "http://www.apple.com/foo&bar" ;
 
 ! Test xml in html components
 { } [
-    [XML <foo/> XML] "xmltest" set-value
+    XML-CHUNK[[ <foo/> ]] "xmltest" set-value
 ] unit-test
 
 { "<foo/>" } [
diff --git a/basis/html/components/components.factor b/basis/html/components/components.factor
index 46872111d0..07ff220a7d 100644
--- a/basis/html/components/components.factor
+++ b/basis/html/components/components.factor
@@ -46,10 +46,10 @@ M: label render*
 SINGLETON: hidden
 
 M: hidden render*
-    drop [XML <input value=<-> name=<-> type="hidden"/> XML] ;
+    drop XML-CHUNK[[ <input value=<-> name=<-> type="hidden"/> ]] ;
 
 : render-field ( value name size type -- xml )
-    [XML <input value=<-> name=<-> size=<-> type=<->/> XML] ;
+    XML-CHUNK[[ <input value=<-> name=<-> size=<-> type=<->/> ]] ;
 
 TUPLE: field size ;
 
@@ -77,12 +77,12 @@ TUPLE: textarea rows cols ;
 M:: textarea render* ( value name area -- xml )
     area rows>> :> rows
     area cols>> :> cols
-    [XML
+    XML-CHUNK[[
          <textarea
             name=<-name->
             rows=<-rows->
             cols=<-cols->><-value-></textarea>
-    XML] ;
+    ]] ;
 
 ! Choice
 TUPLE: choice size multiple choices ;
@@ -92,7 +92,7 @@ TUPLE: choice size multiple choices ;
 
 : render-option ( text selected? -- xml )
     "selected" and swap
-    [XML <option selected=<->><-></option> XML] ;
+    XML-CHUNK[[ <option selected=<->><-></option> ]] ;
 
 : render-options ( value choice -- xml )
     [ choices>> value ] [ multiple>> ] bi
@@ -103,10 +103,10 @@ M:: choice render* ( value name choice -- xml )
     choice size>> :> size
     choice multiple>> "true" and :> multiple
     value choice render-options :> contents
-    [XML <select
+    XML-CHUNK[[ <select
         name=<-name->
         size=<-size->
-        multiple=<-multiple->><-contents-></select> XML] ;
+        multiple=<-multiple->><-contents-></select> ]] ;
 
 ! Checkboxes
 TUPLE: checkbox label ;
@@ -116,9 +116,9 @@ TUPLE: checkbox label ;
 
 M: checkbox render*
     [ "true" and ] [ ] [ label>> ] tri*
-    [XML <input
+    XML-CHUNK[[ <input
         type="checkbox"
-        checked=<-> name=<->><-></input> XML] ;
+        checked=<-> name=<->><-></input> ]] ;
 
 ! Link components
 GENERIC: link-title ( obj -- string )
@@ -142,7 +142,7 @@ TUPLE: link target ;
 M: link render*
     nip swap
     [ target>> ] [ [ link-href ] [ link-title ] bi ] bi*
-    [XML <a target=<-> href=<->><-></a> XML] ;
+    XML-CHUNK[[ <a target=<-> href=<->><-></a> ]] ;
 
 ! XMode code component
 TUPLE: code mode ;
diff --git a/basis/html/forms/forms.factor b/basis/html/forms/forms.factor
index c6e32d5b15..3b048144c4 100644
--- a/basis/html/forms/forms.factor
+++ b/basis/html/forms/forms.factor
@@ -109,6 +109,6 @@ C: <validation-error-state> validation-error-state
 : render-validation-errors ( -- )
     form get errors>>
     [
-        [ [XML <li><-></li> XML] ] map
-        [XML <ul class="errors"><-></ul> XML] write-xml
+        [ XML-CHUNK[[ <li><-></li> ]] ] map
+        XML-CHUNK[[ <ul class="errors"><-></ul> ]] write-xml
     ] unless-empty ;
diff --git a/basis/html/html.factor b/basis/html/html.factor
index 1ad6627307..7016e3b8d9 100644
--- a/basis/html/html.factor
+++ b/basis/html/html.factor
@@ -10,7 +10,7 @@ M: empty-prolog write-xml drop ;
 : <empty-prolog> ( -- prolog ) \ empty-prolog new ;
 
 : simple-page ( title head body -- xml )
-    <XML
+    XML-DOC[[
         <!DOCTYPE html>
         <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
             <head>
@@ -19,13 +19,13 @@ M: empty-prolog write-xml drop ;
             </head>
             <body><-></body>
         </html>
-    XML> <empty-prolog> >>prolog ;
+    ]] <empty-prolog> >>prolog ;
 
 : render-error ( message -- xml )
-    [XML <span class="error"><-></span> XML] ;
+    XML-CHUNK[[ <span class="error"><-></span> ]] ;
 
 : simple-link ( xml url -- xml' )
-    url-encode swap [XML <a href=<->><-></a> XML] ;
+    url-encode swap XML-CHUNK[[ <a href=<->><-></a> ]] ;
 
 : simple-image ( url -- xml )
-    url-encode [XML <img src=<-> /> XML] ;
+    url-encode XML-CHUNK[[ <img src=<-> /> ]] ;
diff --git a/basis/html/streams/streams.factor b/basis/html/streams/streams.factor
index 92a4b656d1..e0634ef807 100644
--- a/basis/html/streams/streams.factor
+++ b/basis/html/streams/streams.factor
@@ -72,7 +72,7 @@ MACRO: make-css ( pairs -- str )
 
 : span-tag ( xml style -- xml )
     span-css-style
-    [ swap [XML <span style=<->><-></span> XML] ] unless-empty ; inline
+    [ swap XML-CHUNK[[ <span style=<->><-></span> ]] ] unless-empty ; inline
 
 : emit-html ( stream quot -- )
     dip data>> push ; inline
@@ -125,7 +125,7 @@ CONSTANT: pre-css "white-space: pre; font-family: monospace; "
 
 : div-tag ( xml style -- xml' )
     div-css-style
-    [ swap [XML <div style=<->><-></div> XML] ] unless-empty ;
+    [ swap XML-CHUNK[[ <div style=<->><-></div> ]] ] unless-empty ;
 
 : format-html-div ( string style stream -- )
     [ [ div-tag ] [ object-link-tag ] bi ] emit-html ;
@@ -159,7 +159,7 @@ M: html-writer stream-format
     format-html-span ;
 
 M: html-writer stream-nl
-    [ [XML <br/> XML] ] emit-html ;
+    [ XML-CHUNK[[ <br/> ]] ] emit-html ;
 
 M: html-writer make-span-stream
     html-span-stream new-html-sub-stream ;
@@ -173,10 +173,10 @@ M: html-writer make-cell-stream
 M: html-writer stream-write-table
     [
         table-style swap [
-            [ data>> [XML <td valign="top" style=<->><-></td> XML] ] with map
-            [XML <tr><-></tr> XML]
+            [ data>> XML-CHUNK[[ <td valign="top" style=<->><-></td> ]] ] with map
+            XML-CHUNK[[ <tr><-></tr> ]]
         ] with map
-        [XML <table style="display: inline-table; border-collapse: collapse;"><-></table> XML]
+        XML-CHUNK[[ <table style="display: inline-table; border-collapse: collapse;"><-></table> ]]
     ] emit-html ;
 
 M: html-writer dispose drop ;
diff --git a/basis/html/templates/chloe/chloe-docs.factor b/basis/html/templates/chloe/chloe-docs.factor
index 0d21163b25..dbec08e1d1 100644
--- a/basis/html/templates/chloe/chloe-docs.factor
+++ b/basis/html/templates/chloe/chloe-docs.factor
@@ -274,7 +274,7 @@ ARTICLE: "html.templates.chloe.extend.components.example" "An example of a custo
 "As an example, let's develop a custom Chloe component which renders an image stored in a form value. Since the component does not require any configuration, we can define a singleton class:"
 { $code "SINGLETON: image" }
 "Now we define a method on the " { $link render* } " generic word which renders the image using " { $link { "xml.syntax" "literals" } } ":"
-{ $code "M: image render* 2drop [XML <img src=<-> /> XML] ;" }
+{ $code "M: image render* 2drop XML-CHUNK[[ <img src=<-> /> ]] ;" }
 "Finally, we can define a Chloe component:"
 { $code "COMPONENT: image" }
 "We can use it as follows, assuming the current form has a value named " { $snippet "image" } ":"
diff --git a/basis/html/templates/chloe/chloe.factor b/basis/html/templates/chloe/chloe.factor
index 0cd639d805..5d07c11a78 100644
--- a/basis/html/templates/chloe/chloe.factor
+++ b/basis/html/templates/chloe/chloe.factor
@@ -19,7 +19,7 @@ CHLOE: write-title
     drop
     "head" tag-stack get member?
     "title" tag-stack get member? not and
-    [ get-title [XML <title><-></title> XML] ]
+    [ get-title XML-CHUNK[[ <title><-></title> ]] ]
     [ get-title ] ?
     [xml-code] ;
 
@@ -33,7 +33,7 @@ CHLOE: style
 CHLOE: write-style
     drop [
         get-style
-        [XML <style type="text/css"> <-> </style> XML]
+        XML-CHUNK[[ <style type="text/css"> <-> </style> ]]
     ] [xml-code] ;
 
 CHLOE: even
diff --git a/basis/html/templates/templates.factor b/basis/html/templates/templates.factor
index 4187205495..005e367395 100644
--- a/basis/html/templates/templates.factor
+++ b/basis/html/templates/templates.factor
@@ -66,13 +66,13 @@ SYMBOL: atom-feeds
 
 : get-atom-feeds ( -- xml )
     atom-feeds get [
-        [XML
+        XML-CHUNK[[
             <link
                 rel="alternate"
                 type="application/atom+xml"
                 title=<->
                 href=<->/>
-        XML]
+        ]]
     ] { } assoc>map ;
 
 : write-atom-feeds ( -- )
diff --git a/basis/http/server/responses/responses.factor b/basis/http/server/responses/responses.factor
index 5aa59c81f5..10a4fb3db2 100644
--- a/basis/http/server/responses/responses.factor
+++ b/basis/http/server/responses/responses.factor
@@ -19,14 +19,14 @@ IN: http.server.responses
     "text/html" <content> ;
 
 : trivial-response-body ( code message -- )
-    <XML
+    XML-DOC[[
         <!DOCTYPE html>
         <html>
             <body>
                 <h1><-> <-></h1>
             </body>
         </html>
-    XML> write-xml ;
+    ]] write-xml ;
 
 : <trivial-response> ( code message -- response )
     2dup [ trivial-response-body ] with-string-writer
diff --git a/basis/http/server/static/static.factor b/basis/http/server/static/static.factor
index ba794f047c..efd2df1b73 100644
--- a/basis/http/server/static/static.factor
+++ b/basis/http/server/static/static.factor
@@ -59,13 +59,13 @@ TUPLE: file-responder root hook special index-names allow-listings ;
 \ serve-file NOTICE add-input-logging
 
 :: file-html-template ( href size modified -- xml )
-    [XML
+    XML-CHUNK[[
         <tr>
             <td><a href=<-href->><-href-></a></td>
             <td align="right"><-modified-></td>
             <td align="right"><-size-></td>
         </tr>
-    XML] ;
+    ]] ;
 
 : file>html ( name infos -- xml )
     [
@@ -84,7 +84,7 @@ TUPLE: file-responder root hook special index-names allow-listings ;
     url get [ path>> "Index of " prepend ] [ "" ] if* ;
 
 :: listing-html-template ( title listing ?parent CO-N CO-M CO-S -- xml )
-    [XML <h1><-title-></h1>
+    XML-CHUNK[[ <h1><-title-></h1>
         <table>
             <tr>
                 <th><a href=<-CO-N->>Name</a></th>
@@ -96,7 +96,7 @@ TUPLE: file-responder root hook special index-names allow-listings ;
             <-listing->
             <tr><th colspan="5"><hr/></th></tr>
         </table>
-    XML] ;
+    ]] ;
 
 : sort-column ( -- column ) params get "C" of "N" or ;
 
diff --git a/basis/lcs/diff2html/diff2html.factor b/basis/lcs/diff2html/diff2html.factor
index 07c8d5269d..ef7f15d80e 100644
--- a/basis/lcs/diff2html/diff2html.factor
+++ b/basis/lcs/diff2html/diff2html.factor
@@ -11,30 +11,30 @@ GENERIC: diff-line ( obj -- xml )
 
 M: retain diff-line
     item-string
-    [XML <td class="retain"><-></td> XML]
-    dup [XML <tr><-><-></tr> XML] ;
+    XML-CHUNK[[ <td class="retain"><-></td> ]]
+    dup XML-CHUNK[[ <tr><-><-></tr> ]] ;
 
 M: insert diff-line
-    item-string [XML
+    item-string XML-CHUNK[[
         <tr>
             <td> </td>
             <td class="insert"><-></td>
         </tr>
-    XML] ;
+    ]] ;
 
 M: delete diff-line
-    item-string [XML
+    item-string XML-CHUNK[[
         <tr>
             <td class="delete"><-></td>
             <td> </td>
         </tr>
-    XML] ;
+    ]] ;
 
 : htmlize-diff ( diff -- xml )
     [ diff-line ] map
-    [XML
+    XML-CHUNK[[
         <table width="100%" class="comparison">
             <tr><th>Old</th><th>New</th></tr>
             <->
         </table>
-    XML] ;
+    ]] ;
diff --git a/basis/syndication/syndication.factor b/basis/syndication/syndication.factor
index 0961e50675..8b2c5d1307 100644
--- a/basis/syndication/syndication.factor
+++ b/basis/syndication/syndication.factor
@@ -119,23 +119,23 @@ M: byte-array parse-feed [ bytes>xml xml>feed ] with-html-entities ;
         [ date>> timestamp>rfc3339 ]
         [ description>> ]
     } cleave
-    [XML
+    XML-CHUNK[[
         <entry>
             <title type="html"><-></title>
             <link rel="alternate" href=<-> />
             <published><-></published>
             <content type="html"><-></content>
         </entry>
-    XML] ;
+    ]] ;
 
 : feed>xml ( feed -- xml )
     [ title>> ]
     [ url>> present ]
     [ entries>> [ entry>xml ] map ] tri
-    <XML
+    XML-DOC[[
         <feed xmlns="http://www.w3.org/2005/Atom">
             <title><-></title>
             <link rel="alternate" href=<-> />
             <->
         </feed>
-    XML> ;
+    ]] ;
diff --git a/basis/tools/deploy/test/20/20.factor b/basis/tools/deploy/test/20/20.factor
index 7e9a0631b7..3d0b39e21c 100644
--- a/basis/tools/deploy/test/20/20.factor
+++ b/basis/tools/deploy/test/20/20.factor
@@ -2,7 +2,7 @@ USING: io xml.syntax xml.writer ;
 IN: tools.deploy.test.20
 
 : test-xml ( str -- str' )
-    <XML <foo><-></foo> XML> xml>string ;
+    XML-DOC[[ <foo><-></foo> ]] xml>string ;
 
 : main ( -- )
     "Factor" test-xml print ;
diff --git a/basis/xml-rpc/xml-rpc.factor b/basis/xml-rpc/xml-rpc.factor
index 36bc349e11..9f1b4440a8 100644
--- a/basis/xml-rpc/xml-rpc.factor
+++ b/basis/xml-rpc/xml-rpc.factor
@@ -16,34 +16,34 @@ GENERIC: item>xml ( object -- xml )
 M: integer item>xml
     dup 31 2^ neg 31 2^ 1 - between?
     [ "Integers must fit in 32 bits" throw ] unless
-    [XML <i4><-></i4> XML] ;
+    XML-CHUNK[[ <i4><-></i4> ]] ;
 
 M: boolean item>xml
-    "1" "0" ? [XML <boolean><-></boolean> XML] ;
+    "1" "0" ? XML-CHUNK[[ <boolean><-></boolean> ]] ;
 
 M: float item>xml
-    number>string [XML <double><-></double> XML] ;
+    number>string XML-CHUNK[[ <double><-></double> ]] ;
 
 M: string item>xml
-    [XML <string><-></string> XML] ;
+    XML-CHUNK[[ <string><-></string> ]] ;
 
 : struct-member ( name value -- tag )
     over string? [ "Struct member name must be string" throw ] unless
     item>xml
-    [XML
+    XML-CHUNK[[
         <member>
             <name><-></name>
             <value><-></value>
         </member>
-    XML] ;
+    ]] ;
 
 M: hashtable item>xml
     [ struct-member ] { } assoc>map
-    [XML <struct><-></struct> XML] ;
+    XML-CHUNK[[ <struct><-></struct> ]] ;
 
 M: array item>xml
-    [ item>xml [XML <value><-></value> XML] ] map
-    [XML <array><data><-></data></array> XML] ;
+    [ item>xml XML-CHUNK[[ <value><-></value> ]] ] map
+    XML-CHUNK[[ <array><data><-></data></array> ]] ;
 
 TUPLE: base64 string ;
 
@@ -51,33 +51,33 @@ C: <base64> base64
 
 M: base64 item>xml
     string>> >base64
-    [XML <base64><-></base64> XML] ;
+    XML-CHUNK[[ <base64><-></base64> ]] ;
 
 : params ( seq -- xml )
-    [ item>xml [XML <param><value><-></value></param> XML] ] map
-    [XML <params><-></params> XML] ;
+    [ item>xml XML-CHUNK[[ <param><value><-></value></param> ]] ] map
+    XML-CHUNK[[ <params><-></params> ]] ;
 
 : method-call ( name seq -- xml )
     params
-    <XML
+    XML-DOC[[
         <methodCall>
             <methodName><-></methodName>
             <->
         </methodCall>
-    XML> ;
+    ]] ;
 
 : return-params ( seq -- xml )
-    params <XML <methodResponse><-></methodResponse> XML> ;
+    params XML-DOC[[ <methodResponse><-></methodResponse> ]] ;
 
 : return-fault ( fault-code fault-string -- xml )
     [ "faultString" ,, "faultCode" ,, ] H{ } make item>xml
-    <XML
+    XML-DOC[[
         <methodResponse>
             <fault>
                 <value><-></value>
             </fault>
         </methodResponse>
-    XML> ;
+    ]] ;
 
 TUPLE: rpc-method name params ;
 
diff --git a/basis/xml/syntax/syntax-docs.factor b/basis/xml/syntax/syntax-docs.factor
index 0621c1282d..41396de023 100644
--- a/basis/xml/syntax/syntax-docs.factor
+++ b/basis/xml/syntax/syntax-docs.factor
@@ -35,29 +35,29 @@ HELP: TAG:
 ARTICLE: { "xml.syntax" "literals" } "XML literals"
 "The following words provide syntax for XML literals:"
 { $subsections
-    postpone: <XML
-    postpone: [XML
+    postpone: XML-DOC[[
+    postpone: XML-CHUNK[[
 }
 "These can be used for creating an XML literal, which can be used with variables or a fry-like syntax to interpolate data into XML."
 { $subsections { "xml.syntax" "interpolation" } } ;
 
-HELP: <XML
-{ $syntax "<XML <?xml version=\"1.0\"?><document>...</document> XML>" }
+HELP: XML-DOC[[
+{ $syntax "XML-DOC[[ <?xml version=\"1.0\"?><document>...</document> ]]" }
 { $description "This gives syntax for literal XML documents. When evaluated, there is an XML document (" { $link xml } ") on the stack. It can be used for interpolation as well, if interpolation slots are used. For more information about XML interpolation, see " { $link { "xml.syntax" "interpolation" } } "." } ;
 
-HELP: [XML
-{ $syntax "[XML foo <x>...</x> bar <y>...</y> baz XML]" }
+HELP: XML-CHUNK[[
+{ $syntax "XML-CHUNK[[ foo <x>...</x> bar <y>...</y> baz ]]" }
 { $description "This gives syntax for literal XML documents. When evaluated, there is an XML chunk (" { $link xml-chunk } ") on the stack. For more information about XML interpolation, see " { $link { "xml.syntax" "interpolation" } } "." } ;
 
 ARTICLE: { "xml.syntax" "interpolation" } "XML interpolation syntax"
-"XML interpolation has two forms for each of the words " { $link postpone: <XML } " and " { $link postpone: [XML } ": a fry-like form and a locals form. To splice locals in, use the syntax " { $snippet "<-variable->" } ". To splice something in from the stack, in the style of " { $vocab-link "fry" } ", use the syntax " { $snippet "<->" } ". An XML interpolation form may only use one of these styles."
+"XML interpolation has two forms for each of the words " { $link postpone: XML-DOC[[ } " and " { $link postpone: XML-CHUNK[[ } ": a fry-like form and a locals form. To splice locals in, use the syntax " { $snippet "<-variable->" } ". To splice something in from the stack, in the style of " { $vocab-link "fry" } ", use the syntax " { $snippet "<->" } ". An XML interpolation form may only use one of these styles."
 $nl
-"These forms can be used where a tag might go, as in " { $snippet "[XML <foo><-></foo> XML]" } " or where an attribute might go, as in " { $snippet "[XML <foo bar=<->/> XML]" } ". When an attribute is spliced in, it is not included if the value is " { $snippet "f" } " and if the value is not a string, the value is put through " { $link present } ". Here is an example of the fry style of XML interpolation:"
+"These forms can be used where a tag might go, as in " { $snippet "XML-CHUNK[[ <foo><-></foo> ]]" } " or where an attribute might go, as in " { $snippet "XML-CHUNK[[ <foo bar=<->/> ]]" } ". When an attribute is spliced in, it is not included if the value is " { $snippet "f" } " and if the value is not a string, the value is put through " { $link present } ". Here is an example of the fry style of XML interpolation:"
 { $example
 "USING: splitting xml.writer xml.syntax ;
 \"one two three\" \" \" split
-[ [XML <item><-></item> XML] ] map
-<XML <doc><-></doc> XML> pprint-xml"
+[ XML-CHUNK[[ <item><-></item> ]] ] map
+XML-DOC[[ <doc><-></doc> ]] pprint-xml"
 
 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
 <doc>
@@ -80,14 +80,14 @@ let[
     URL\" http://factorcode.org/\" :> url
     \"hello\" :> string
     \\ drop :> word
-    <XML
+    XML-DOC[[
         <x
             number=<-number->
             false=<-false->
             url=<-url->
             string=<-string->
             word=<-word-> />
-    XML> pprint-xml
+    ]] pprint-xml
 ]"
 
 "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
@@ -96,12 +96,12 @@ let[
 { $example "USING: xml.syntax inverse ;
 : dispatch ( xml -- string )
     {
-        { [ [XML <a><-></a> XML] ] [ \"a\" prepend ] }
-        { [ [XML <b><-></b> XML] ] [ \"b\" prepend ] }
-        { [ [XML <b val='yes'/> XML] ] [ \"yes\" ] }
-        { [ [XML <b val=<->/> XML] ] [ \"no\" prepend ] }
+        { [ XML-CHUNK[[ <a><-></a> ]] ] [ \"a\" prepend ] }
+        { [ XML-CHUNK[[ <b><-></b> ]] ] [ \"b\" prepend ] }
+        { [ XML-CHUNK[[ <b val='yes'/> ]] ] [ \"yes\" ] }
+        { [ XML-CHUNK[[ <b val=<->/> ]] ] [ \"no\" prepend ] }
     } switch ;
-[XML <a>pple</a> XML] dispatch write"
+XML-CHUNK[[ <a>pple</a> ]] dispatch write"
 "apple" } ;
 
 HELP: XML-NS:
diff --git a/basis/xml/syntax/syntax-tests.factor b/basis/xml/syntax/syntax-tests.factor
index ae6ea5a182..095812c739 100644
--- a/basis/xml/syntax/syntax-tests.factor
+++ b/basis/xml/syntax/syntax-tests.factor
@@ -55,10 +55,10 @@ XML-NS: foo http://blah.com
   y
   <foo/>
 </x>" } [
-    let[ "one" :> a "two" :> c "y" :> x [XML <-x-> <foo/> XML] :> d
-        <XML
+    let[ "one" :> a "two" :> c "y" :> x XML-CHUNK[[ <-x-> <foo/> ]] :> d
+        XML-DOC[[
             <x> <-a-> <b val=<-c->/> <-d-> </x>
-        XML> pprint-xml>string
+        ]] pprint-xml>string
     ]
 ] unit-test
 
@@ -75,69 +75,69 @@ XML-NS: foo http://blah.com
   </item>
 </doc>" } [
     "one two three" " " split
-    [ [XML <item><-></item> XML] ] map
-    <XML <doc><-></doc> XML> pprint-xml>string
+    [ XML-CHUNK[[ <item><-></item> ]] ] map
+    XML-DOC[[ <doc><-></doc> ]] pprint-xml>string
 ] unit-test
 
 { "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
 <x number=\"3\" url=\"http://factorcode.org/\" string=\"hello\" word=\"drop\"/>" }
 [ 3 f "http://factorcode.org/" "hello" \ drop
-  <XML <x number=<-> false=<-> url=<-> string=<-> word=<->/> XML>
+  XML-DOC[[ <x number=<-> false=<-> url=<-> string=<-> word=<->/> ]]
   pprint-xml>string  ] unit-test
 
-{ "<x>3</x>" } [ 3 [XML <x><-></x> XML] xml>string ] unit-test
-{ "<x></x>" } [ f [XML <x><-></x> XML] xml>string ] unit-test
+{ "<x>3</x>" } [ 3 XML-CHUNK[[ <x><-></x> ]] xml>string ] unit-test
+{ "<x></x>" } [ f XML-CHUNK[[ <x><-></x> ]] xml>string ] unit-test
 
-[ [XML <-> XML] ] must-infer
-[ [XML <foo><-></foo> <bar val=<->/> XML] ] must-infer
+[ XML-CHUNK[[ <-> ]] ] must-infer
+[ XML-CHUNK[[ <foo><-></foo> <bar val=<->/> ]] ] must-infer
 
-{ xml-chunk } [ [ [XML <foo/> XML] ] first class-of ] unit-test
-{ xml } [ [ <XML <foo/> XML> ] first class-of ] unit-test
-{ xml-chunk } [ [ [XML <foo val=<->/> XML] ] third class-of ] unit-test
-{ xml } [ [ <XML <foo val=<->/> XML> ] third class-of ] unit-test
-{ 1 } [ [ [XML <foo/> XML] ] length ] unit-test
-{ 1 } [ [ <XML <foo/> XML> ] length ] unit-test
+{ xml-chunk } [ [ XML-CHUNK[[ <foo/> ]] ] first class-of ] unit-test
+{ xml } [ [ XML-DOC[[ <foo/> ]] ] first class-of ] unit-test
+{ xml-chunk } [ [ XML-CHUNK[[ <foo val=<->/> ]] ] third class-of ] unit-test
+{ xml } [ [ XML-DOC[[ <foo val=<->/> ]] ] third class-of ] unit-test
+{ 1 } [ [ XML-CHUNK[[ <foo/> ]] ] length ] unit-test
+{ 1 } [ [ XML-DOC[[ <foo/> ]] ] length ] unit-test
 
-{ "" } [ [XML XML] concat ] unit-test
+{ "" } [ XML-CHUNK[[ ]] concat ] unit-test
 
-{ "foo" } [ [XML <a>foo</a> XML] [ [XML <a><-></a> XML] ] undo ] unit-test
-{ "foo" } [ [XML <a bar='foo'/> XML] [ [XML <a bar=<-> /> XML] ] undo ] unit-test
-{ "foo" "baz" } [ [XML <a bar='foo'>baz</a> XML] [ [XML <a bar=<->><-></a> XML] ] undo ] unit-test
+{ "foo" } [ XML-CHUNK[[ <a>foo</a> ]] [ XML-CHUNK[[ <a><-></a> ]] ] undo ] unit-test
+{ "foo" } [ XML-CHUNK[[ <a bar='foo'/> ]] [ XML-CHUNK[[ <a bar=<-> /> ]] ] undo ] unit-test
+{ "foo" "baz" } [ XML-CHUNK[[ <a bar='foo'>baz</a> ]] [ XML-CHUNK[[ <a bar=<->><-></a> ]] ] undo ] unit-test
 
 : dispatch ( xml -- string )
     {
-        { [ [XML <a><-></a> XML] ] [ "a" prepend ] }
-        { [ [XML <b><-></b> XML] ] [ "b" prepend ] }
-        { [ [XML <b val='yes'/> XML] ] [ "byes" ] }
-        { [ [XML <b val=<->/> XML] ] [ "bno" prepend ] }
+        { [ XML-CHUNK[[ <a><-></a> ]] ] [ "a" prepend ] }
+        { [ XML-CHUNK[[ <b><-></b> ]] ] [ "b" prepend ] }
+        { [ XML-CHUNK[[ <b val='yes'/> ]] ] [ "byes" ] }
+        { [ XML-CHUNK[[ <b val=<->/> ]] ] [ "bno" prepend ] }
     } switch ;
 
-{ "apple" } [ [XML <a>pple</a> XML] dispatch ] unit-test
-{ "banana" } [ [XML <b>anana</b> XML] dispatch ] unit-test
-{ "byes" } [ [XML <b val="yes"/> XML] dispatch ] unit-test
-{ "bnowhere" } [ [XML <b val="where"/> XML] dispatch ] unit-test
-{ "baboon" } [ [XML <b val="something">aboon</b> XML] dispatch ] unit-test
-{ "apple" } [ <XML <a>pple</a> XML> dispatch ] unit-test
-{ "apple" } [ <XML <a>pple</a> XML> body>> dispatch ] unit-test
+{ "apple" } [ XML-CHUNK[[ <a>pple</a> ]] dispatch ] unit-test
+{ "banana" } [ XML-CHUNK[[ <b>anana</b> ]] dispatch ] unit-test
+{ "byes" } [ XML-CHUNK[[ <b val="yes"/> ]] dispatch ] unit-test
+{ "bnowhere" } [ XML-CHUNK[[ <b val="where"/> ]] dispatch ] unit-test
+{ "baboon" } [ XML-CHUNK[[ <b val="something">aboon</b> ]] dispatch ] unit-test
+{ "apple" } [ XML-DOC[[ <a>pple</a> ]] dispatch ] unit-test
+{ "apple" } [ XML-DOC[[ <a>pple</a> ]] body>> dispatch ] unit-test
 
 : dispatch-doc ( xml -- string )
     {
-        { [ <XML <a><-></a> XML> ] [ "a" prepend ] }
-        { [ <XML <b><-></b> XML> ] [ "b" prepend ] }
-        { [ <XML <b val='yes'/> XML> ] [ "byes" ] }
-        { [ <XML <b val=<->/> XML> ] [ "bno" prepend ] }
+        { [ XML-DOC[[ <a><-></a> ]] ] [ "a" prepend ] }
+        { [ XML-DOC[[ <b><-></b> ]] ] [ "b" prepend ] }
+        { [ XML-DOC[[ <b val='yes'/> ]] ] [ "byes" ] }
+        { [ XML-DOC[[ <b val=<->/> ]] ] [ "bno" prepend ] }
     } switch ;
 
-{ "apple" } [ <XML <a>pple</a> XML> dispatch-doc ] unit-test
-{ "apple" } [ [XML <a>pple</a> XML] dispatch-doc ] unit-test
-{ "apple" } [ <XML <a>pple</a> XML> body>> dispatch-doc ] unit-test
+{ "apple" } [ XML-DOC[[ <a>pple</a> ]] dispatch-doc ] unit-test
+{ "apple" } [ XML-CHUNK[[ <a>pple</a> ]] dispatch-doc ] unit-test
+{ "apple" } [ XML-DOC[[ <a>pple</a> ]] body>> dispatch-doc ] unit-test
 
 ! Make sure nested XML documents interpolate correctly
 {
     "<?xml version=\"1.0\" encoding=\"UTF-8\"?><color><blue>it's blue!</blue></color>"
 } [
-    "it's blue!" <XML <blue><-></blue> XML>
-    <XML <color><-></color> XML> xml>string
+    "it's blue!" XML-DOC[[ <blue><-></blue> ]]
+    XML-DOC[[ <color><-></color> ]] xml>string
 ] unit-test
 
 {
@@ -147,5 +147,5 @@ XML-NS: foo http://blah.com
     "asdf"
     "asdf" f f <tag>
     "asdf2" <xml>
-    <XML <a><-></a> XML> xml>string
+    XML-DOC[[ <a><-></a> ]] xml>string
 ] unit-test
diff --git a/basis/xml/syntax/syntax.factor b/basis/xml/syntax/syntax.factor
index da7b9417ba..5897fbffa7 100644
--- a/basis/xml/syntax/syntax.factor
+++ b/basis/xml/syntax/syntax.factor
@@ -170,11 +170,13 @@ MACRO: interpolate-xml ( xml -- quot )
 
 PRIVATE>
 
-SYNTAX: <XML
-    "XML>" [ string>doc ] parse-def ;
+SYNTAX: \XML-DOC[[ "]]" [ string>doc ] parse-def ;
+SYNTAX: \XML-DOC[=[ "]=]" [ string>doc ] parse-def ;
+SYNTAX: \XML-DOC[==[ "]==]" [ string>doc ] parse-def ;
 
-SYNTAX: [XML
-    "XML]" [ string>chunk ] parse-def ;
+SYNTAX: \XML-CHUNK[[ "]]" [ string>chunk ] parse-def ;
+SYNTAX: \XML-CHUNK[=[ "]=]" [ string>chunk ] parse-def ;
+SYNTAX: \XML-CHUNK[==[ "]==]" [ string>chunk ] parse-def ;
 
 USE: vocabs.loader
 
diff --git a/basis/xml/tests/templating.factor b/basis/xml/tests/templating.factor
index fdef51b0c5..8a9b945d90 100644
--- a/basis/xml/tests/templating.factor
+++ b/basis/xml/tests/templating.factor
@@ -20,17 +20,14 @@ M: object (r-ref) drop ;
 
 ! Example
 
-CONSTANT: sample-doc [[
-<html xmlns:f='http://littledan.onigirihouse.com/namespaces/replace'>
+CONSTANT: sample-doc [[ <html xmlns:f='http://littledan.onigirihouse.com/namespaces/replace'>
 <body>
 <span f:sub='foo'/>
 <div f:sub='bar'/>
 <p f:sub='baz'>paragraph</p>
-</body></html>
-]]
+</body></html>]]
 
-CONSTANT: expected-result [[
-<?xml version="1.0" encoding="UTF-8"?>
+CONSTANT: expected-result [[ <?xml version="1.0" encoding="UTF-8"?>
 <html xmlns:f="http://littledan.onigirihouse.com/namespaces/replace">
   <body>
     <span f:sub="foo">
@@ -42,8 +39,7 @@ CONSTANT: expected-result [[
     </div>
     <p f:sub="baz"/>
   </body>
-</html>
-]]
+</html>]]
 
 : test-refs ( -- string )
     [
diff --git a/basis/xml/writer/writer-docs.factor b/basis/xml/writer/writer-docs.factor
index 4b32b60a47..a11aca07a7 100644
--- a/basis/xml/writer/writer-docs.factor
+++ b/basis/xml/writer/writer-docs.factor
@@ -48,7 +48,7 @@ HELP: pprint-xml
 HELP: indenter
 { $var-description "Contains the string which is used for indenting in the XML prettyprinter. For example, to print an XML document using " { $snippet "%%%%" } " for indentation, you can use the following:" }
 { $example "USING: xml.syntax xml.writer namespaces ;
-[XML <foo>bar</foo> XML] \"%%%%\" indenter [ pprint-xml ] with-variable " "
+XML-CHUNK[[ <foo>bar</foo> ]] \"%%%%\" indenter [ pprint-xml ] with-variable " "
 <foo>
 %%%%bar
 </foo>" } ;
@@ -56,9 +56,9 @@ HELP: indenter
 HELP: sensitive-tags
 { $var-description "Contains a sequence of " { $link name } "s where whitespace should be considered significant for prettyprinting purposes. The sequence can contain " { $link string } "s in place of names. For example, to preserve whitespace inside a " { $snippet "pre" } " tag:" }
 { $example "USING: xml.syntax xml.writer namespaces ;
-[XML <!DOCTYPE html> <html> <head> <title> something</title></head><body><pre>bing
+XML-CHUNK[[ <!DOCTYPE html> <html> <head> <title> something</title></head><body><pre>bing
 bang
-   bong</pre></body></html> XML] { \"pre\" } sensitive-tags [ pprint-xml ] with-variable"
+   bong</pre></body></html> ]] { \"pre\" } sensitive-tags [ pprint-xml ] with-variable"
 "
 <!DOCTYPE html>
 <html>
diff --git a/basis/xml/writer/writer-tests.factor b/basis/xml/writer/writer-tests.factor
index f4ebe2616a..9f9e2a3157 100644
--- a/basis/xml/writer/writer-tests.factor
+++ b/basis/xml/writer/writer-tests.factor
@@ -71,8 +71,8 @@ IN: xml.writer.tests
 { } [
     { 1 2 3 4 } [
         [ number>string ] [ sq number>string ] bi
-        [XML <tr><td><-></td><td><-></td></tr> XML]
-    ] map [XML <h2>Timings</h2> <table><-></table> XML]
+        XML-CHUNK[[ <tr><td><-></td><td><-></td></tr> ]]
+    ] map XML-CHUNK[[ <h2>Timings</h2> <table><-></table> ]]
     pprint-xml
 ] unit-test
 
diff --git a/basis/xmode/code2html/code2html.factor b/basis/xmode/code2html/code2html.factor
index 6938f40beb..b10a3ce703 100644
--- a/basis/xmode/code2html/code2html.factor
+++ b/basis/xmode/code2html/code2html.factor
@@ -7,7 +7,7 @@ IN: xmode.code2html
     [
         [ str>> ] [ id>> ] bi [
             name>> swap
-            [XML <span class=<->><-></span> XML]
+            XML-CHUNK[[ <span class=<->><-></span> ]]
         ] when*
     ] map ;
 
@@ -21,14 +21,14 @@ IN: xmode.code2html
 : default-stylesheet ( -- xml )
     "resource:basis/xmode/code2html/stylesheet.css"
     utf8 file-contents
-    [XML <style><-></style> XML] ;
+    XML-CHUNK[[ <style><-></style> ]] ;
 
 :: htmlize-stream ( path stream -- xml )
     stream stream-lines
     [ "" ] [ path over first find-mode htmlize-lines ]
     if-empty :> input
     default-stylesheet :> stylesheet
-    <XML <!DOCTYPE html> <html>
+    XML-DOC[[ <!DOCTYPE html> <html>
         <head>
             <-stylesheet->
             <title><-path-></title>
@@ -36,7 +36,7 @@ IN: xmode.code2html
         <body>
             <pre><-input-></pre>
         </body>
-    </html> XML> ;
+    </html> ]] ;
 
 : htmlize-file ( path -- )
     dup utf8 [
diff --git a/extra/codebook/codebook.factor b/extra/codebook/codebook.factor
index 58ce25f365..26487d6d17 100644
--- a/extra/codebook/codebook.factor
+++ b/extra/codebook/codebook.factor
@@ -16,23 +16,23 @@ IN: codebook
 
 CONSTANT: codebook-style
     {
-        { COMMENT1 [ [XML <i><font color="#555555"><-></font></i> XML] ] }
-        { COMMENT2 [ [XML <i><font color="#555555"><-></font></i> XML] ] }
-        { COMMENT3 [ [XML <i><font color="#555555"><-></font></i> XML] ] }
-        { COMMENT4 [ [XML <i><font color="#555555"><-></font></i> XML] ] }
-        { DIGIT    [ [XML    <font color="#333333"><-></font>     XML] ] }
-        { FUNCTION [ [XML <b><font color="#111111"><-></font></b> XML] ] }
-        { KEYWORD1 [ [XML <b><font color="#111111"><-></font></b> XML] ] }
-        { KEYWORD2 [ [XML <b><font color="#111111"><-></font></b> XML] ] }
-        { KEYWORD3 [ [XML <b><font color="#111111"><-></font></b> XML] ] }
-        { KEYWORD4 [ [XML <b><font color="#111111"><-></font></b> XML] ] }
-        { LABEL    [ [XML <b><font color="#333333"><-></font></b> XML] ] }
-        { LITERAL1 [ [XML    <font color="#333333"><-></font>     XML] ] }
-        { LITERAL2 [ [XML    <font color="#333333"><-></font>     XML] ] }
-        { LITERAL3 [ [XML    <font color="#333333"><-></font>     XML] ] }
-        { LITERAL4 [ [XML    <font color="#333333"><-></font>     XML] ] }
-        { MARKUP   [ [XML <b><font color="#333333"><-></font></b> XML] ] }
-        { OPERATOR [ [XML <b><font color="#111111"><-></font></b> XML] ] }
+        { COMMENT1 [ XML-CHUNK[[ <i><font color="#555555"><-></font></i> ]] ] }
+        { COMMENT2 [ XML-CHUNK[[ <i><font color="#555555"><-></font></i> ]] ] }
+        { COMMENT3 [ XML-CHUNK[[ <i><font color="#555555"><-></font></i> ]] ] }
+        { COMMENT4 [ XML-CHUNK[[ <i><font color="#555555"><-></font></i> ]] ] }
+        { DIGIT    [ XML-CHUNK[[    <font color="#333333"><-></font>     ]] ] }
+        { FUNCTION [ XML-CHUNK[[ <b><font color="#111111"><-></font></b> ]] ] }
+        { KEYWORD1 [ XML-CHUNK[[ <b><font color="#111111"><-></font></b> ]] ] }
+        { KEYWORD2 [ XML-CHUNK[[ <b><font color="#111111"><-></font></b> ]] ] }
+        { KEYWORD3 [ XML-CHUNK[[ <b><font color="#111111"><-></font></b> ]] ] }
+        { KEYWORD4 [ XML-CHUNK[[ <b><font color="#111111"><-></font></b> ]] ] }
+        { LABEL    [ XML-CHUNK[[ <b><font color="#333333"><-></font></b> ]] ] }
+        { LITERAL1 [ XML-CHUNK[[    <font color="#333333"><-></font>     ]] ] }
+        { LITERAL2 [ XML-CHUNK[[    <font color="#333333"><-></font>     ]] ] }
+        { LITERAL3 [ XML-CHUNK[[    <font color="#333333"><-></font>     ]] ] }
+        { LITERAL4 [ XML-CHUNK[[    <font color="#333333"><-></font>     ]] ] }
+        { MARKUP   [ XML-CHUNK[[ <b><font color="#333333"><-></font></b> ]] ] }
+        { OPERATOR [ XML-CHUNK[[ <b><font color="#111111"><-></font></b> ]] ] }
         [ drop ]
     }
 
@@ -70,7 +70,7 @@ TUPLE: code-file
 : toc-list ( files -- list )
     [ name>> ] map natural-sort [
         [ file-html-name ] keep
-        [XML <li><a href=<->><-></a></li> XML]
+        XML-CHUNK[[ <li><a href=<->><-></a></li> ]]
     ] map ;
 
 ! insert zero-width non-joiner between all characters so words can wrap anywhere
@@ -82,7 +82,7 @@ TUPLE: code-file
 : htmlize-tokens ( tokens line# -- html-tokens )
     swap [
         [ str>> zwnj ] [ id>> ] bi codebook-style case
-    ] map [XML <tt><font size="-2" color="#666666"><-></font> <-></tt> XML]
+    ] map XML-CHUNK[[ <tt><font size="-2" color="#666666"><-></font> <-></tt> ]]
     "\n" 2array ;
 
 : line#>string ( i line#len -- i-string )
@@ -96,7 +96,7 @@ TUPLE: code-file
     file mode>> load-mode :> rules
     f lines |[ l i | l rules tokenize-line i 1 + line#len line#>string htmlize-tokens ]
     map-index concat nip :> html-lines
-    <XML <!DOCTYPE html> <html>
+    XML-DOC[[ <!DOCTYPE html> <html>
         <head>
             <title><-name-></title>
             <meta http-equiv="Content-type" content="text/html; charset=utf-8" />
@@ -106,7 +106,7 @@ TUPLE: code-file
             <pre><-html-lines-></pre>
             <mbp:pagebreak xmlns:mbp="http://www.mobipocket.com/mbp" />
         </body>
-    </html> XML> ;
+    </html> ]] ;
 
 :: code>toc-html ( dir name files -- html )
     "Generating HTML table of contents" print flush
@@ -116,7 +116,7 @@ TUPLE: code-file
     dir [
         files toc-list :> toc
 
-        <XML <!DOCTYPE html> <html>
+        XML-DOC[[ <!DOCTYPE html> <html>
             <head>
                 <title><-name-></title>
                 <meta http-equiv="Content-type" content="text/html; charset=utf-8" />
@@ -130,7 +130,7 @@ TUPLE: code-file
                 <ul><-toc-></ul>
                 <mbp:pagebreak xmlns:mbp="http://www.mobipocket.com/mbp" />
             </body>
-        </html> XML>
+        </html> ]]
     ] with-directory ;
 
 :: code>ncx ( dir name files -- xml )
@@ -141,13 +141,13 @@ TUPLE: code-file
         name file-html-name :> filename
         i 2 + number>string :> istr
 
-        [XML <navPoint class="book" id=<-filename-> playOrder=<-istr->>
+        XML-CHUNK[[ <navPoint class="book" id=<-filename-> playOrder=<-istr->>
             <navLabel><text><-name-></text></navLabel>
             <content src=<-filename-> />
-        </navPoint> XML]
+        </navPoint> ]]
     ] map-index :> file-nav-points
 
-    <XML <?xml version="1.0" encoding="UTF-8" ?>
+    XML-DOC[[ <?xml version="1.0" encoding="UTF-8" ?>
     <ncx version="2005-1" xmlns="http://www.daisy.org/z3986/2005/ncx/">
         <navMap>
             <navPoint class="book" id="toc" playOrder="1">
@@ -156,7 +156,7 @@ TUPLE: code-file
             </navPoint>
             <-file-nav-points->
         </navMap>
-    </ncx> XML> ;
+    </ncx> ]] ;
 
 :: code>opf ( dir name files -- xml )
     "Generating OPF manifest" print flush
@@ -164,12 +164,12 @@ TUPLE: code-file
 
     files [
         name>> file-html-name dup
-        [XML <item id=<-> href=<-> media-type="text/html" /> XML]
+        XML-CHUNK[[ <item id=<-> href=<-> media-type="text/html" /> ]]
     ] map :> html-manifest
 
-    files [ name>> file-html-name [XML <itemref idref=<-> /> XML] ] map :> html-spine
+    files [ name>> file-html-name XML-CHUNK[[ <itemref idref=<-> /> ]] ] map :> html-spine
 
-    <XML <?xml version="1.0" encoding="UTF-8" ?>
+    XML-DOC[[ <?xml version="1.0" encoding="UTF-8" ?>
     <package
         version="2.0"
         xmlns="http://www.idpf.org/2007/opf"
@@ -192,7 +192,7 @@ TUPLE: code-file
         <guide>
             <reference type="toc" title="Table of Contents" href="_toc.html" />
         </guide>
-    </package> XML> ;
+    </package> ]] ;
 
 : write-dest-file ( xml name ext -- )
     append utf8 [ write-xml ] with-file-writer ;
diff --git a/extra/mason/report/report.factor b/extra/mason/report/report.factor
index f4d9e51a1c..08ecda756d 100644
--- a/extra/mason/report/report.factor
+++ b/extra/mason/report/report.factor
@@ -8,7 +8,7 @@ IN: mason.report
 
 : git-link ( id -- link )
     [ "http://github.com/factor/factor/commit/" "" prepend-as ] keep
-    [XML <a href=<->><-></a> XML] ;
+    XML-CHUNK[[ <a href=<->><-></a> ]] ;
 
 : common-report ( -- xml )
     target-os get
@@ -17,7 +17,7 @@ IN: mason.report
     disk-usage
     build-dir
     current-git-id get git-link
-    [XML
+    XML-CHUNK[[
     <h1>Build report for <->/<-></h1>
     <table>
     <tr><td>Build machine:</td><td><-></td></tr>
@@ -25,14 +25,14 @@ IN: mason.report
     <tr><td>Build directory:</td><td><-></td></tr>
     <tr><td>GIT ID:</td><td><-></td></tr>
     </table>
-    XML] ;
+    ]] ;
 
 : with-report ( quot: ( -- xml ) -- )
     [ "report" utf8 ] dip
     '[
         common-report
         _ call( -- xml )
-        [XML <div><-><-></div> XML]
+        XML-CHUNK[[ <div><-><-></div> ]]
         write-xml
     ] with-file-writer ; inline
 
@@ -44,13 +44,13 @@ IN: mason.report
         error [ error. ] with-string-writer :> error
         file utf8 400 file-tail :> output
 
-        [XML
+        XML-CHUNK[[
         <h2><-what-></h2>
         Build output:
         <pre><-output-></pre>
         Launcher error:
         <pre><-error-></pre>
-        XML]
+        ]]
     ] with-report
     status-error ;
 
@@ -73,30 +73,30 @@ IN: mason.report
         html-help-time-file
     } [
         dup eval-file nanos>time
-        [XML <tr><td><-></td><td><-></td></tr> XML]
-    ] map [XML <h2>Timings</h2> <table><-></table> XML] ;
+        XML-CHUNK[[ <tr><td><-></td><td><-></td></tr> ]]
+    ] map XML-CHUNK[[ <h2>Timings</h2> <table><-></table> ]] ;
 
 : error-dump ( heading vocabs-file messages-file -- xml )
     [ eval-file ] dip over empty? [ 3drop f ] [
         [ ]
-        [ [ [XML <li><-></li> XML] ] map [XML <ul><-></ul> XML] ]
+        [ [ XML-CHUNK[[ <li><-></li> ]] ] map XML-CHUNK[[ <ul><-></ul> ]] ]
         [ utf8 file-contents ]
         tri*
-        [XML <h1><-></h1> <-> Details: <pre><-></pre> XML]
+        XML-CHUNK[[ <h1><-></h1> <-> Details: <pre><-></pre> ]]
     ] if ;
 
 : benchmarks-table ( assoc -- xml )
     [
         1,000,000,000 /f
-        [XML <tr><td><-></td><td><-></td></tr> XML]
+        XML-CHUNK[[ <tr><td><-></td><td><-></td></tr> ]]
     ] { } assoc>map
-    [XML
+    XML-CHUNK[[
         <h2>Benchmarks</h2>
         <table>
             <tr><th>Benchmark</th><th>Time (seconds)</th></tr>
             <->
         </table>
-    XML] ;
+    ]] ;
 
 : successful-report ( -- )
     [
diff --git a/extra/spider/report/report.factor b/extra/spider/report/report.factor
index 7779b233f9..b83048354b 100644
--- a/extra/spider/report/report.factor
+++ b/extra/spider/report/report.factor
@@ -56,18 +56,18 @@ SYMBOL: time-std
 : info-table ( alist -- html )
     [
         first2 dupd 1000000 /f
-        [XML
+        XML-CHUNK[[
         <tr><td><a href=<->><-></a></td><td><-> seconds</td></tr>
-        XML]
-    ] map [XML <table border="1"><-></table> XML] ;
+        ]]
+    ] map XML-CHUNK[[ <table border="1"><-></table> ]] ;
 
 : report-broken-pages ( -- html )
     broken-pages get info-table ;
 
 : report-network-failures ( -- html )
     network-failures get [
-        dup [XML <li><a href=<->><-></a></li> XML]
-    ] map [XML <ul><-></ul> XML] ;
+        dup XML-CHUNK[[ <li><a href=<->><-></a></li> ]]
+    ] map XML-CHUNK[[ <ul><-></ul> ]] ;
 
 : slowest-pages-table ( -- html )
     slowest-pages get info-table ;
@@ -76,31 +76,31 @@ SYMBOL: time-std
     mean-time get
     median-time get
     time-std get
-    [XML
+    XML-CHUNK[[
     <table border="1">
     <tr><th>Mean</th><td><-> seconds</td></tr>
     <tr><th>Median</th><td><-> seconds</td></tr>
     <tr><th>Standard deviation</th><td><-> seconds</td></tr>
     </table>
-    XML] ;
+    ]] ;
 
 : report-timings ( -- html )
     slowest-pages-table
     timing-summary-table
-    [XML
+    XML-CHUNK[[
     <h3>Slowest pages</h3>
     <->
 
     <h3>Summary</h3>
     <->
-    XML] ;
+    ]] ;
 
 : generate-report ( -- html )
     url get dup
     report-broken-pages
     report-network-failures
     report-timings
-    [XML
+    XML-CHUNK[[
     <h1>Spider report</h1>
     URL: <a href=<->><-></a>
 
@@ -112,7 +112,7 @@ SYMBOL: time-std
 
     <h2>Load times</h2>
     <->
-    XML] ;
+    ]] ;
 
 : spider-report ( spider -- html )
     [ "Spider report" f ] dip
diff --git a/extra/talks/tc-lisp-talk/tc-lisp-talk.factor b/extra/talks/tc-lisp-talk/tc-lisp-talk.factor
index d43d784500..129faf650c 100644
--- a/extra/talks/tc-lisp-talk/tc-lisp-talk.factor
+++ b/extra/talks/tc-lisp-talk/tc-lisp-talk.factor
@@ -27,8 +27,8 @@ CONSTANT: tc-lisp-slides
         { $code
         "USING: splitting xml.writer xml.syntax ;
 { \"one\" \"two\" \"three\" }
-[ [XML <item><-></item> XML] ] map
-<XML <doc><-></doc> XML> pprint-xml"
+[ XML-CHUNK[[ <item><-></item> ]] ] map
+XML-DOC[[ <doc><-></doc> ]] pprint-xml"
         }
     }
     { $slide "Differences between Factor and Lisp"
diff --git a/extra/webapps/mason/backend/watchdog/watchdog.factor b/extra/webapps/mason/backend/watchdog/watchdog.factor
index 3fbd898b92..f4b06658d4 100644
--- a/extra/webapps/mason/backend/watchdog/watchdog.factor
+++ b/extra/webapps/mason/backend/watchdog/watchdog.factor
@@ -5,8 +5,8 @@ webapps.mason.backend xml.syntax xml.writer ;
 IN: webapps.mason.backend.watchdog
 
 : crashed-builder-body ( crashed-builders -- string content-type )
-    [ os/cpu [XML <li><-></li> XML] ] map
-    <XML
+    [ os/cpu XML-CHUNK[[ <li><-></li> ]] ] map
+    XML-DOC[[
         <!DOCTYPE html>
         <html>
             <body>
@@ -15,7 +15,7 @@ IN: webapps.mason.backend.watchdog
                 <a href="http://builds.factorcode.org/dashboard">Dashboard</a>
             </body>
         </html>
-    XML> xml>string
+    ]] xml>string
     "text/html" ;
 
 : crashed-builder-subject ( crashed-builders -- string )
diff --git a/extra/webapps/mason/dashboard/dashboard.factor b/extra/webapps/mason/dashboard/dashboard.factor
index c96863e2ce..fb18b6fc19 100644
--- a/extra/webapps/mason/dashboard/dashboard.factor
+++ b/extra/webapps/mason/dashboard/dashboard.factor
@@ -6,10 +6,10 @@ webapps.mason.utils ;
 IN: webapps.mason.downloads
 
 CONSTANT: CRASHED
-[XML <span style="background-color: yellow;">CRASHED</span> XML]
+XML-CHUNK[[ <span style="background-color: yellow;">CRASHED</span> ]]
 
 CONSTANT: BROKEN
-[XML <span style="background-color: red; color: white;">BROKEN</span> XML]
+XML-CHUNK[[ <span style="background-color: red; color: white;">BROKEN</span> ]]
 
 : builder-status ( builder -- status/f )
     {
@@ -22,10 +22,10 @@ CONSTANT: BROKEN
     [ os/cpu ] sort-with
     [
         [ report-url ] [ os/cpu ] [ builder-status ] tri
-        [XML <li><a href=<->><-></a> <-></li> XML]
+        XML-CHUNK[[ <li><a href=<->><-></a> <-></li> ]]
     ] map
-    [ [XML <p>No machines.</p> XML] ]
-    [ [XML <ul><-></ul> XML] ]
+    [ XML-CHUNK[[ <p>No machines.</p> ]] ]
+    [ XML-CHUNK[[ <ul><-></ul> ]] ]
     if-empty ;
 
 : <dashboard-action> ( -- action )
diff --git a/extra/webapps/mason/grids/grids.factor b/extra/webapps/mason/grids/grids.factor
index addde53ef8..1fec58ed61 100644
--- a/extra/webapps/mason/grids/grids.factor
+++ b/extra/webapps/mason/grids/grids.factor
@@ -9,8 +9,8 @@ IN: webapps.mason.grids
 : render-grid-cell ( cpu os quot -- xml )
     call( cpu os -- url label )
     2dup and
-    [ link [XML <td class="supported"><div class="bigdiv"><-></div></td> XML] ]
-    [ 2drop [XML <td class="doesnotexist" /> XML] ]
+    [ link XML-CHUNK[[ <td class="supported"><div class="bigdiv"><-></div></td> ]] ]
+    [ 2drop XML-CHUNK[[ <td class="doesnotexist" /> ]] ]
     if ;
 
 CONSTANT: oses
@@ -27,21 +27,21 @@ CONSTANT: cpus
 }
 
 : render-grid-header ( -- xml )
-    oses values [ [XML <th align='center' scope='col'><-></th> XML] ] map ;
+    oses values [ XML-CHUNK[[ <th align='center' scope='col'><-></th> ]] ] map ;
 
 :: render-grid-row ( cpu quot -- xml )
     cpu second oses keys |[ os | cpu os quot render-grid-cell ] map
-    [XML <tr><th align='center' scope='row'><-></th><-></tr> XML] ;
+    XML-CHUNK[[ <tr><th align='center' scope='row'><-></th><-></tr> ]] ;
 
 :: render-grid ( quot -- xml )
     render-grid-header
     cpus [ quot render-grid-row ] map
-    [XML
+    XML-CHUNK[[
         <table id="downloads" cellspacing="0">
             <tr><th class="nobg">OS/CPU</th><-></tr>
             <->
         </table>
-    XML] ;
+    ]] ;
 
 : package-date ( filename -- date )
     "." split1 drop 16 tail* 6 head* ;
diff --git a/extra/webapps/mason/package/package.factor b/extra/webapps/mason/package/package.factor
index d12d1464de..05a8c07732 100644
--- a/extra/webapps/mason/package/package.factor
+++ b/extra/webapps/mason/package/package.factor
@@ -9,7 +9,7 @@ IN: webapps.mason.package
 
 : building ( builder string -- xml )
     swap current-git-id>> git-link
-    [XML <-> for <-> XML] ;
+    XML-CHUNK[[ <-> for <-> ]] ;
 
 : status-string ( builder -- string )
     dup status>> {
diff --git a/extra/webapps/mason/report/report.factor b/extra/webapps/mason/report/report.factor
index 6c7454fe30..1b03bd5ec3 100644
--- a/extra/webapps/mason/report/report.factor
+++ b/extra/webapps/mason/report/report.factor
@@ -20,4 +20,4 @@ IN: webapps.mason.report
     [ URL" report" clone ] dip
     [ os>> "os" set-query-param ]
     [ cpu>> "cpu" set-query-param ] bi
-    [XML <a href=<->>Latest build report</a> XML] ;
+    XML-CHUNK[[ <a href=<->>Latest build report</a> ]] ;
diff --git a/extra/webapps/mason/utils/utils.factor b/extra/webapps/mason/utils/utils.factor
index 6504b5f262..1ccc337220 100644
--- a/extra/webapps/mason/utils/utils.factor
+++ b/extra/webapps/mason/utils/utils.factor
@@ -7,7 +7,7 @@ webapps.mason.version.data xml.syntax ;
 IN: webapps.mason.utils
 
 : link ( url label -- xml )
-    [XML <a href=<->><-></a> XML] ;
+    XML-CHUNK[[ <a href=<->><-></a> ]] ;
 
 : validate-os/cpu ( -- )
     {
@@ -35,7 +35,7 @@ IN: webapps.mason.utils
             ?
         ] [ drop f ] if
     ] bi
-    2array sift [ [XML <li><-></li> XML] ] map [XML <ul><-></ul> XML] ;
+    2array sift [ XML-CHUNK[[ <li><-></li> ]] ] map XML-CHUNK[[ <ul><-></ul> ]] ;
 
 : download-url ( string -- string' )
     "http://downloads.factorcode.org/" prepend ;