From 4acf982a0a9f01cfc0aa405fcc36549cb6811552 Mon Sep 17 00:00:00 2001
From: David Lichteblau <david@lichteblau.com>
Date: Sun, 30 Mar 2008 15:44:12 +0200
Subject: [PATCH] fixed message with terminate

---
 parser.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/parser.lisp b/parser.lisp
index 79d33be..8c70d1b 100644
--- a/parser.lisp
+++ b/parser.lisp
@@ -308,9 +308,9 @@
 
 (define-instruction-parser |message| (node)
   (only-with-attributes (terminate) node
-    (if terminate
-        `(xsl:message ,@(parse-body node))
-        `(xsl:terminate ,@(parse-body node)))))
+    (if (equal terminate "yes")
+        `(xsl:terminate ,@(parse-body node))
+        `(xsl:message ,@(parse-body node)))))
 
 (define-instruction-parser |number| (node)
   (only-with-attributes (level count from value format lang letter-value
-- 
2.11.4.GIT