anchor.diff:  
   ;;; External Interface Routines
   
  -(defun write-cross-links (links &optional (referrer (current-wiki-path)))
  +(defun write-cross-links (links)
     "Write on-disk data of the cross LINKS using specified REFERRER."
  -  (loop with referrer = (wiki-path-to :label referrer)
  -        for referee in (delete-duplicates links :test #'string=)
  +  (loop with referrer = (wiki-path-to :label (current-wiki-path))
  +        for referee in links
           do (let ((content (wiki-content-from :label referee)))
                ;; Ensure WIKI-CONTENT skeleton exists.
  -             (unless (wiki-content-referrers-exist-p content)
  +             (if (not (wiki-content-referrers-exist-p content))
                  (ensure-wiki-content-on-disk-layout content))
                ;; Append cross link to referrers list.
                (unless (member referrer
  
positive.code:                              :test #'string=)
                 (push referrer (wiki-content-referrers content))
                 (wiki-content-referrers-update content)))))
  
  (defgeneric markup-to-html (input &key process-cross-links)
    (:documentation "Transforms supplied input in wiki markup syntax to HTML."))
  
negative.code:     ;; Make second trip.
      (document? (create-parser-context input :attachment attachment))
      (if process-cross-links
          (let ((links (delete-duplicates (context-attachment-links attachment)
                                          :test #'string=)))
            (write-cross-links links)
            (remove-abolished-references links)))
      (get-output-stream-string (context-attachment-output attachment))))
  
  (defmethod markup-to-html ((input wiki-content) &key process-cross-links)
  