diff --git a/basis/furnace/chloe-tags/chloe-tags.factor b/basis/furnace/chloe-tags/chloe-tags.factor index b67431092c..d3ed2054b5 100644 --- a/basis/furnace/chloe-tags/chloe-tags.factor +++ b/basis/furnace/chloe-tags/chloe-tags.factor @@ -111,7 +111,7 @@ CHLOE: form STRING: button-tag-markup - +
; @@ -122,7 +122,7 @@ CHLOE: button button-tag-markup string>xml body>> { [ [ attrs>> chloe-attrs-only ] dip add-tag-attrs ] - [ [ attrs>> non-chloe-attrs-only ] dip "button" tag-named add-tag-attrs ] - [ [ children>> ] dip "button" tag-named (>>children) ] + [ [ attrs>> non-chloe-attrs-only ] dip "button" deep-tag-named add-tag-attrs ] + [ [ children>> ] dip "button" deep-tag-named (>>children) ] [ nip ] } 2cleave compile-chloe-tag ;