anchor.diff:  ;;;
   ;;; - :DIVIDER type menu items.
   
  -(in-package :clim-internals)
  +(in-package #:clim-internals)
   
   ;; Spec function.
   (defgeneric menu-choose
  
positive.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
  
negative.code:                          ,scroll-bars))))
  
  (defun invoke-with-menu (continuation associated-window deexpose
                           label scroll-bars)
    (let* ((associated-frame (if associated-window
                                 (pane-frame associated-window)
                                 *application-frame*))
  