anchor.diff:      (touch menu)
       ;; draw the title only when we have a border too, because we draw the title on top of the border.
       (when (and border title)
  +      ;; make a format template depending on the length of the title.
         ;; "|~12:@<~A~>|"
         (flet ((make-title-string (len)
                  (concatenate 'string "|~" (write-to-string (+ len 2)) ":@<~A~>|")))
  
positive.code:                    (checklist .checklist)
                     (type .type)
                     (current-item-number .current-item-number)
                     (mark .current-item-mark)
                     (sub-window .sub-window)) menu
      ;; return as string
      (format nil "~A~A~A"
  
negative.code:             ;; for the current item, draw the current-item-mark
              ;; for all other items, draw a space
              (if (= current-item-number item-number)
                  current-item-mark
                  (make-string (length current-item-mark) :initial-element #\space))
              ;; then add the item
              (let ((item (nth item-number items)))
                (typecase item
  