farkup: revent literal from being modified

diff --git a/basis/farkup/farkup.factor b/basis/farkup/farkup.factor
index 61966ac92b51eafc6ba11d4ba8fdf0ad34484c00..25bd83a31868171efdb31823fc3f8e50bcc049cf 100644 (file)
--- a/basis/farkup/farkup.factor
+++ b/basis/farkup/farkup.factor
@@ -223,7 +223,7 @@ CONSTANT: invalid-url "javascript:alert('Invalid URL in farkup');"
 GENERIC: (write-farkup) ( farkup -- xml )
 
 : farkup-inside ( farkup name -- xml )
-    <simple-name> swap T{ attrs } swap
+    <simple-name> swap T{ attrs } clone swap
     child>> (write-farkup) 1array <tag> ;
 
 M: heading1 (write-farkup) "h1" farkup-inside ;