anchor.diff:          (current-strip env) "")
     (setf (chunk-post-processors env)
           (list               
  -         'handle-paragraphs             ; before headers
  -         'handle-setext-headers
            'handle-link-reference-titles
  -         'handle-code
  -         'handle-atx-headers
  -         'handle-horizontal-rules       ; before bullet lists
  +         '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
            
  
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:                          (blank-line-after? current) (line-is-empty-p line))
                     (insert-item (chunks result) current)
                     (setf current nil)))
                 (setf current-code code) 
                 
                 ;; Start new chunk?
                 (awhen (and (not current)
  