anchor.diff:                      (not (member 'code (markup-class chunk))))
                  (and (or (blank-line-before? chunk) 
                           (blank-line-after? chunk)
  -                        (eq (started-by chunk) 'start-of-document)
  -                        (eq (ended-by chunk) 'end-of-document))
  +			(and 
  +			 ;;?? probably a hack
  +			 (eq (started-by chunk) 'start-of-document)
  +			 (not (document-property :omit-initial-paragraph nil)))
  +			(and 
  +			 ;;?? probably a hack
  +			 (eq (ended-by chunk) 'end-of-document)
  +			 (not (document-property :omit-final-paragraph nil))))
                       (not (member (started-by chunk)
                                    '(line-starts-with-bullet-p 
                                      line-starts-with-number-p)))
                       (not (member 'code (markup-class chunk)))))
          (setf (paragraph? chunk) t)))))
   
  -;;; ---------------------------------------------------------------------------
  -  
   (defun handle-atx-headers (document)
     (iterate-elements
      (chunks document)
      (lambda (chunk)
        (when (and (eq (started-by chunk) 'line-is-not-empty-p)
                   (atx-header-p (first-element (lines chunk))))
  -       (make-header chunk (atx-header-markup-class (first-element (lines chunk)))) 
  +       (make-header 
  +	chunk (atx-header-markup-class (first-element (lines chunk)))) 
          (setf (first-element (lines chunk)) 
                (remove-atx-header (first-element (lines chunk))))))))
   
  
positive.code: 	     (if additional-extensions
  		 `(,@additional-extensions ,@*parse-active-functions*)
  		 *parse-active-functions*))))
      ;; (print *render-active-functions*)
      (iterate-elements 
       (chunk-post-processors *parsing-environment*)
       (lambda (processor)
  
negative.code:        (empty! (lines chunk))
         (setf (markup-class chunk) '(horizontal-rule))))))
  
  (defun handle-paragraphs (document)
    (iterate-elements
     (chunks document)
  