new accessors

diff --git a/extra/furnace/furnace.factor b/extra/furnace/furnace.factor
index 11250ba6442a377454e58cdeae9eb2efab9e3e21..46aba06c9ce3f18d0e37f6735ed513306517270a 100644 (file)
--- a/extra/furnace/furnace.factor
+++ b/extra/furnace/furnace.factor
@@ -203,6 +203,6 @@ CHLOE: button
     {
         [ [ attrs>> chloe-attrs-only ] dip add-tag-attrs ]
         [ [ attrs>> non-chloe-attrs-only ] dip "button" tag-named add-tag-attrs ]
-        [ [ children>string 1array ] dip "button" tag-named set-tag-children ]
+        [ [ children>string 1array ] dip "button" tag-named (>>children) ]
         [ nip ]
     } 2cleave process-chloe-tag ;