anchor.diff:  
   (defun write-document (document &optional (out-stream *standard-output*))
     "Write the document to the designated out-stream, or *standard-ouput* by default."
  -  (case (stream-element-type out-stream) 
  +  (case (stream-element-type out-stream)
       ('character (write-document-to-character-stream document out-stream))
       (otherwise (write-document-to-octet-stream document out-stream))))
   
  
positive.code: 		       'rune-dom:implementation
  		       "html"
  		       "-//W3C//DTD XHTML 1.0 Transitional//EN"
  		       "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"))))   
      (declare (special *document*))
      (append-nodes *document* ,@chillins)
      *document*))
  
negative.code: (in-package :net.acceleration.buildnode)
  
  (cl-interpol:enable-interpol-syntax)
  
  (defun xmls-to-dom-snippet ( sxml &key (namespace "http://www.w3.org/1999/xhtml"))
    (declare (special *document*))
    (etypecase sxml
  