From cd6c8d7ecd053c9af83e87649fead35167237f9e Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Mon, 29 Aug 2005 05:40:05 +0000
Subject: [PATCH] HTML tags fix

---
 library/httpd/html-tags.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/httpd/html-tags.factor b/library/httpd/html-tags.factor
index b646239649..1e697d1acd 100644
--- 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