anchor.diff:  		 :validate t)
   	(error "well-formedness violation not detected")
         nil)
  +    #+fixme-stp-test
  +    (error ()
  +      (format t " unexpected-error")
  +      t)
       (cxml:well-formedness-violation ()
         (format t " not-wf")
         t)
  
positive.code: 		 :validate nil)
  	(error "well-formedness violation not detected")
        nil)
      (cxml:well-formedness-violation ()
        (format t " not-wf")
        t))
  
negative.code:             (when (plusp (length output))
                (merge-pathnames output sub-directory)))))
  
  (defmethod serialize-document ((document t))
    (dom:map-document (cxml:make-octet-vector-sink :canonical 2)
  		    document
  		    :include-doctype :canonical-notations
  