From e45dc57d7ca4cc7c1b16d27bd68c15c5141a6b62 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 4 Feb 2006 01:11:42 +0000
Subject: [PATCH] XML writing fix

---
 contrib/httpd/xml.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/contrib/httpd/xml.factor b/contrib/httpd/xml.factor
index 06f6e352c6..834151e0da 100644
--- a/contrib/httpd/xml.factor
+++ b/contrib/httpd/xml.factor
@@ -396,7 +396,7 @@ M: comment (xml>string)
         initialize-xml-stack
         call
         xml-stack get
-        first cdr second
+        first cdr first
     ] with-scope ; inline
 
 ! * System for words specialized on tag names