anchor.diff:  
   (defmethod draw-menu ((menu menu-window))
     (with-accessors ((layout .layout) (scrolled-layout .scrolled-layout) (scrolled-region-start .scrolled-region-start)
  -                   (title .title) (border .border) (len .max-item-length) (sub-win .sub-window)) menu
  +                   (title .title) (border .border) (sub-win .sub-window)) menu
       (clear sub-win)
       (let ((m  (car  layout))
             (n  (cadr layout))
  
positive.code:             ;; for the current item, draw the current-item-mark
              ;; for all other items, draw a space
              (if (= current-item-number item-number)
                  mark
                  (make-string (length mark) :initial-element #\space))
              ;; then add the item
              (let ((item (nth item-number items)))
                (typecase item
  
negative.code:                   (:right (setf j (min (1+ j) (1- n)))))))
  
        ;; after updating i,j, update the current-item-number
        (setf current-item-number (sub2rmi layout (list i j))))))
  
  (defun format-menu-item (menu item-number)
    "Take a menu and return item item-number as a properly formatted string.
  