noch ein p/name

-oasis/p76fail4.xml [not-wf?] FAILED:
-  well-formedness violation not detected
-[
-     notation names are Names
-    ]

XMLCONF

@@ -871,11 +871,7 @@ oasis/p75fail6.xml [not-wf?] not-wf
 oasis/p76fail1.xml [not-wf?] not-wf
 oasis/p76fail2.xml [not-wf?] not-wf
 oasis/p76fail3.xml [not-wf?] not-wf
-oasis/p76fail4.xml [not-wf?] FAILED:
-  well-formedness violation not detected
-[
-     notation names are Names
-    ]
+oasis/p76fail4.xml [not-wf?] not-wf
 ibm/invalid/P28/ibm28i01.xml [not validating:] input/output [validating:] invalid
 ibm/invalid/P32/ibm32i01.xml [not validating:] input/output [validating:] invalid
 ibm/invalid/P32/ibm32i03.xml [not validating:] input/output [validating:] invalid
@@ -1837,4 +1833,4 @@ ibm/valid/P86/ibm86v01.xml [not validating:] input [validating:] input
 ibm/valid/P87/ibm87v01.xml [not validating:] input [validating:] input
 ibm/valid/P88/ibm88v01.xml [not validating:] input [validating:] input
 ibm/valid/P89/ibm89v01.xml [not validating:] input [validating:] input
-10/1786 tests failed; 376 tests were skipped
+9/1786 tests failed; 376 tests were skipped

xml/xml-parse.lisp

@@ -2251,7 +2251,7 @@
   (let (name id)
     (expect input :|<!NOTATION|)
     (p/S input)
-    (setf name (p/nmtoken input))
+    (setf name (p/name input))
     (p/S input)
     (setf id (p/external-id input t))
     (p/S? input)