anchor.diff:                           (blank-line-after? current) (line-is-empty-p line))
                      (insert-item (chunks result) current)
                      (setf current nil)))
  -               (setf current-code code
  -                     was-blank? (line-is-empty-p line))
  +               (setf current-code code) 
                  
                  ;; Start new chunk?
                  (awhen (and (not current)
  
positive.code:                      (insert-item (strippers *parsing-environment*) stripper)
                       ; (format t " -~2D-" (size (strippers *parsing-environment*)))
                       )))
                 (loop while (> (size (strippers *parsing-environment*)) level) do
                       ; (princ " -XX-")
                       (pop-item (strippers *parsing-environment*)))
  
negative.code:         (current-strip env) "")
    (setf (chunk-post-processors env)
          (list               
           'handle-link-reference-titles
           'handle-code                   ; before hr
           'handle-horizontal-rules       ; before bullet lists, after code
           'handle-bullet-lists
           'handle-number-lists
           'handle-paragraphs             ; before headers
           'handle-blockquotes
           'handle-setext-headers
           'handle-atx-headers
  
           'merge-chunks-in-document
           'merge-lines-in-chunks
           
  