HTML tags fix

diff --git a/library/httpd/html-tags.factor b/library/httpd/html-tags.factor
index b646239649d483027ff8e6cce885931749e158cc..1e697d1acdb47fe29fc92c891f1c614a41ac39a0 100644 (file)
--- a/library/httpd/html-tags.factor
+++ b/library/httpd/html-tags.factor
@@ -77,7 +77,7 @@ USE: sequences
 : attrs>string ( alist -- string )
     #! Convert the attrs alist to a string
     #! suitable for embedding in an html tag.
-    [ [ dup car % "='" % cdr % "'" % ] "" make ] map " " join ;
+    [ [ " " % dup car % "='" % cdr % "'" % ] each ] "" make ;
 
 : write-attributes ( n: namespace -- )    
     #! With the attribute namespace on the stack, get the attributes