anchor.diff:    (multiple-value-bind (menu-width menu-height)
         (menu-size (stream-output-history menu) *application-frame*)
       (change-space-requirements menu
  -			       :width menu-width
  -			       :height menu-height
  +                               :width menu-width
  +                               :height menu-height
                                  :resize-frame t)
   
       ;; If we have scroll-bars, we need to do some calibration of the
       ;; size of the viewport.
  -    (when (pane-viewport menu)
  -     (multiple-value-bind (viewport-width viewport-height)
  -         (menu-size (pane-viewport menu) *application-frame*)
  -       (change-space-requirements (pane-scroller menu)
  -                                  ;; HACK: How are you supposed to
  -                                  ;; change the size of the viewport?
  -                                  ;; I could only find this way, where
  -                                  ;; I calculate the size difference
  -                                  ;; between the viewport and the
  -                                  ;; scroller pane, and set the
  -                                  ;; scroller pane to the desired size
  -                                  ;; of the viewport, plus the
  -                                  ;; difference (to make room for
  -                                  ;; scroll bars).
  -                                  :width (+ menu-width
  -                                            (- (pane-current-width (pane-scroller menu))
  -                                               viewport-width))
  -                                  :height (+ menu-height
  -                                             (- (pane-current-height (pane-scroller menu))
  -                                                viewport-height))
  -                                  :resize-frame t)))
  +    (when-let ((viewport (pane-viewport menu)))
  +      (multiple-value-bind (viewport-width viewport-height)
  +          (menu-size viewport *application-frame*)
  +        (let ((scroller (pane-scroller menu)))
  +          (change-space-requirements scroller
  +                                     ;; HACK: How are you supposed to
  +                                     ;; change the size of the viewport?
  +                                     ;; I could only find this way, where
  +                                     ;; I calculate the size difference
  +                                     ;; between the viewport and the
  +                                     ;; scroller pane, and set the
  +                                     ;; scroller pane to the desired size
  +                                     ;; of the viewport, plus the
  +                                     ;; difference (to make room for
  +                                     ;; scroll bars).
  +                                     :width (+ menu-width
  +                                               (- (pane-current-width scroller)
  +                                                  viewport-width))
  +                                     :height (+ menu-height
  +                                                (- (pane-current-height scroller)
  +                                                   viewport-height))
  +                                     :resize-frame t))))
   
       ;; Modify the size and location of the frame as well.
       (let ((top-level-pane (get-top-level-sheet menu)))
  
positive.code:                 (setf top y-position))
                ;; Adjust for maximum position if the programmer has not
                ;; explicitly provided coordinates.
                (if (null x-position)
                 (when (> left max-left)
                   (setf left max-left)))
                (if (null y-position)
                 (when (> top max-top)
                   (setf top max-top)))
                (move-sheet top-level-pane
                            (max left 0) (max top 0)))))))))
  
  
negative.code:       (let* ((menu-stream (make-pane-1 fm associated-frame 'menu-pane))
               (container (scrolling (:scroll-bar scroll-bars)
                            menu-stream))
               (frame (make-menu-frame (raising ()
                                         (if label
                                             (labelling (:label label
                                                         :name 'label
                                                         :label-alignment :top)
                                               container)
                                             container))
                                       :left nil
                                       :top nil)))
          (adopt-frame fm frame)
          (setf (slot-value menu-stream 'menu-frame) frame)
          (unwind-protect
               (progn
                 (setf (stream-end-of-line-action menu-stream) :allow
  