-eduni/namespaces/1.0/013.xml [not validating:] FAILED:

-  #(98 58 97 116 116 114) fell through ETYPECASE expression.
-  Wanted one of (STRING SIMPLE-STRING).
-[
-Bad QName syntax: multiple colons
-]

xml/xml-parse.lisp

@@ -3327,7 +3327,8 @@
 	      (local-name (subseq qname (1+ pos))))
 	  (if (nc-name-p local-name)
 	      (values prefix local-name)
-	      (wf-error "~S is not a valid NcName." local-name)))
+	      (wf-error nil "~S is not a valid NcName."
+			(rod-string local-name))))
 	(values () qname))))
 		
 (defun decode-qname (qname)