From 1afcf6b9ba2f7f111c6c2093fcf2193901f1c34d Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Tue, 21 Nov 2006 08:22:21 +0000
Subject: [PATCH] Fix contrib/xml error. methods

---
 contrib/xml/parser.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrib/xml/parser.factor b/contrib/xml/parser.factor
index 34ee6f875b..8b0c05ec82 100644
--- a/contrib/xml/parser.factor
+++ b/contrib/xml/parser.factor
@@ -235,11 +235,11 @@ UNION: any-tag tag contained-tag ;
 
 TUPLE: notags ;
 M: notags error.
-    "XML document lacks a main tag" print ;
+    drop "XML document lacks a main tag" print ;
 
 TUPLE: multitags ;
 M: multitags error.
-    "XML document contains multiple tags" print ;
+    drop "XML document contains multiple main tags" print ;
 
 : make-xml-doc ( prolog seq -- xml-doc )
     dup [ any-tag? ] find