diff --git a/basis/furnace/chloe-tags/chloe-tags.factor b/basis/furnace/chloe-tags/chloe-tags.factor
index a187300960..deecef8848 100644
--- a/basis/furnace/chloe-tags/chloe-tags.factor
+++ b/basis/furnace/chloe-tags/chloe-tags.factor
@@ -49,7 +49,7 @@ IN: furnace.chloe-tags
     } cleave [ a-url ] [code] ;
 
 CHLOE: atom
-    [ compile-children>string ] [ compile-a-url ] bi
+    [ compile-children>xml-string ] [ compile-a-url ] bi
     [ add-atom-feed ] [code] ;
 
 CHLOE: write-atom drop [ write-atom-feeds ] [code] ;
@@ -73,7 +73,7 @@ CHLOE: write-atom drop [ write-atom-feeds ] [code] ;
 CHLOE: a
     [
         [ a-attrs ]
-        [ compile-children>string ] bi
+        [ compile-children>xml-string ] bi
         [ <unescaped> [XML <a><-></a> XML] second swap >>attrs ]
         [xml-code]
     ] compile-with-scope ;
@@ -120,7 +120,7 @@ CHLOE: form
     [
         [ compile-form-attrs ]
         [ hidden-fields ]
-        [ compile-children>string ] tri
+        [ compile-children>xml-string ] tri
         [
             <unescaped> [XML <form><-><-></form> XML] second
                 swap >>attrs
diff --git a/basis/html/templates/chloe/compiler/compiler.factor b/basis/html/templates/chloe/compiler/compiler.factor
index 921cdcc8ae..74409e6d8e 100644
--- a/basis/html/templates/chloe/compiler/compiler.factor
+++ b/basis/html/templates/chloe/compiler/compiler.factor
@@ -133,9 +133,12 @@ ERROR: unknown-chloe-tag tag ;
 : process-children ( tag quot -- )
     [ [ compile-children ] compile-quot ] [ % ] bi* ; inline
 
+: compile-children>xml-string ( tag -- )
+    [ with-string-writer ] process-children ;
+
 : compile-children>string ( tag -- )
     t string-context? [
-        [ with-string-writer ] process-children
+        compile-children>xml-string
     ] with-variable ;
 
 : compile-with-scope ( quot -- )