Fix thinko in handling of name parsing.

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index b52fc9f4122a7a1d1a7ec29285add64c550b53c7..b69ae8ab9dbaa49bd8e4dbe946cbb339749c09a1 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.58 2004/02/25 21:00:52 cph Exp $
+$Id: xml-parser.scm,v 1.59 2004/02/26 04:50:14 cph Exp $
 
 Copyright 2001,2002,2003,2004 Massachusetts Institute of Technology
 
@@ -517,8 +517,7 @@ USA.
   (*parser
    (with-pointer p
      (map (lambda (s) (cons (make-xml-qname s) p))
-         (match (seq (? (seq match-name ":"))
-                     match-name))))))
+         (match match-name)))))
 
 (define (simple-name-parser type)
   (let ((m (string-append "Malformed " type " name")))