anchor.diff:         (output-record-children record)))
   
   (defmethod map-over-output-records-containing-position
  -    (function (record basic-output-record) x y
  +    (function (record displayed-output-record) x y
        &optional (x-offset 0) (y-offset 0)
        &rest function-args)
     (declare (ignore function x y x-offset y-offset function-args))
  
positive.code:        (output-record-children record)))
  
  (defmethod map-over-output-records-overlapping-region
      (function (record basic-output-record) region
       &optional (x-offset 0) (y-offset 0)
       &rest function-args)
    (declare (ignore function region x-offset y-offset function-args))
  
negative.code:   (declare (ignore x-offset y-offset))
    (map nil
         (lambda (child) (when (region-intersects-region-p region child)
    			 (apply function child function-args)))
         (output-record-children record)))
  
  (defun null-bounding-rectangle-p (bbox)
  