diff --git a/XMLCONF b/XMLCONF
index c131a30..6511672 100644
--- a/XMLCONF
+++ b/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
\ No newline at end of file
+9/1786 tests failed; 376 tests were skipped
\ No newline at end of file
diff --git a/xml/xml-parse.lisp b/xml/xml-parse.lisp
index 84afc27..373d2f2 100644
--- a/xml/xml-parse.lisp
+++ b/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)