Compare XML names as strings rather than as expanded names.

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index c2b457e49a5792e0e25ab7219df1b92580a48a41..1a24a34da94ed7210b9881207b88fa72e2782b5d 100644 (file)
--- a/v7/src/xml/xml-parser.scm
+++ b/v7/src/xml/xml-parser.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: xml-parser.scm,v 1.73 2007/01/17 03:43:09 cph Exp $
+$Id: xml-parser.scm,v 1.74 2007/07/23 00:34:02 cph Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -390,7 +390,8 @@ USA.
          (if (peek-parser-buffer-char b)
              (perror (get-parser-buffer-pointer b) "Unknown content")
              (perror p "Unterminated start tag" name)))
-      (if (not (xml-name=? (vector-ref ve 0) name))
+      (if (not (eq? (xml-name-qname (vector-ref ve 0))
+                   (xml-name-qname name)))
          (perror p "Mismatched start tag" (vector-ref ve 0) name))
       (let ((content (coalesce-strings! (vector->list vc))))
        (if (null? content)