anchor.diff:  
   (defun xml-parse-version-tag (in)
     (xml-expect-char in #\?)
  -  (while (not (= #\? (xml-read-char in))) (progn
  -											(xml-expect-char in #\>)
  -											(values nil ? 'inline nil))))
  +  (while (not (= #\? (xml-read-char in)))
  +		 (progn
  +		   (xml-expect-char in #\>)
  +		   (xml-parse-toplevel in))))
   
   (defun xml-parse-tag (in)
     "Read tag and return xml-node."
  
positive.code: (defun xml-parse-file (name)
    (with-open-file in (open name :direction input)
      (xml-parse in)))
  
  (defun xml-test ()
    (print (xml-parse-file "xschema.xml")))
  
negative.code:         (progn
  	      (xml-read-char in)
  	      (values ident (xml-parse-unify-identifier in)))
          (values nil (make-symbol ident *keyword-package*)))))
  
  (defun xml-parse-quoted-string-r (in quot)
    (with (c (xml-read-char in))
  