anchor.diff:  (defun inner-html (string &optional
   		   (tag "div")
   		   (namespace-uri "http://www.w3.org/1999/xhtml")
  -		   (dtd nil))
  +		   (dtd nil)
  +		   (remove-whitespace? t))
     "Parses a string containing a well formed html snippet
      into dom nodes inside of a newly created node.
   
  
positive.code:   ;; implemented on dom-builder)
    ;; also not sure why returning this fails to work (tries to add it to node)
    ;; rather than teh current subnode we are in ...
    (buildnode:add-children
     (first (rune-dom::element-stack builder))
     (dom:create-text-node (rune-dom::document builder) data))
    (values))
  
  ;;;; I think we might be able to use this as a dom-builder for a more efficient
  
negative.code: 			      (muffle-warning))))
      (let ((node (dom:create-element *document* tag)))
        (cxml:parse #?|<${tag} xmlns="${ namespace-uri }">${string}</${tag}>|
  		  (if remove-whitespace?
  		      (make-instance 'html-whitespace-remover
  				     :chained-handler (make-scoped-dom-builder node))
  		      (make-scoped-dom-builder node))
  		  :dtd dtd)
        (dom:first-child node))))
  
  