anchor.diff:                       (setf line (funcall stripper line)))
                      (when (and (>= level old-level) stripper)
                        (insert-item (strippers *parsing-environment*) stripper)
  -                     ; (format t " -~2D-" (size (strippers *parsing-environment*)))
                        )))
                  (setf was-blank? (line-is-empty-p line))
                  (loop while (> (size (strippers *parsing-environment*)) level) do
  -                     ; (princ " -XX-")
                        (pop-item (strippers *parsing-environment*)))
                  ;; add to current chunk
  -               ; (format t "~%    ~S: ~S" code line)
                  (when current
                    (insert-item (lines current) line))
  -               (setf old-level level))))
  +	       (loop while (/= level old-level)
  +		    when (> level old-level) do
  +		    (insert-item 
  +		     (chunk-parsing-environment *parsing-environment*)
  +		     (or 
  +		      (item-at-1 *chunk-parsing-environments* code)
  +		      (item-at-1 *chunk-parsing-environments* 'toplevel)))
  +		    (incf old-level)
  +		    when (< level old-level) do
  +		    (pop-item (chunk-parsing-environment *parsing-environment*))
  +		    (decf old-level)))))
         (with-iterator (i source :treat-contents-as :lines
   			:skip-empty-chunks? nil)
           (iterate-elements
  
positive.code:          'handle-blockquotes
           'handle-setext-headers
           'handle-atx-headers
  
           'merge-chunks-in-document
           'merge-lines-in-chunks
           
           'canonize-document))
    (empty! (line-code->stripper env))
    (empty! (strippers env))
  
negative.code:                               (some-element-p (chunk-enders (current-chunk-parser)) 
                                                (lambda (p) (funcall p line)))))
                   (when current 
  		   ;; (format t "~%--> end")
                     (setf (ended-by current) code
                           (blank-line-after? current) (line-is-empty-p line))
                     (insert-item (chunks result) current)
  