anchor.diff:    (when format-args
       ;; Typically, the formatter is not needed.
       (setq format-string (apply #'format nil format-string format-args)))
  -  #+clim-1.0
  -  (when (eq style clim:*null-text-style*)
  -    ;; A kludge for sure.  
  -    (setq style clim:*default-text-style*))
  -  #+clim
     (let* ((return #.(aref (format nil "~%") 0))
   	 (line-cnt (1+ (count return format-string :test #'char=))))
       ;; This is 2-3 times faster than using continuation-output-size.
       (multiple-value-bind (x xmax)
   	(stream-string-width stream format-string :text-style style)
         (declare (ignore x))
  -      (values xmax (* line-cnt (stream-line-height stream style)))))
  -  #-clim
  -  (continuation-output-size #'(lambda (s)
  -				(if style
  -				    (with-character-style (style s)
  -				      (format s format-string))
  -				  (format s format-string)))
  -			    stream))
  +      (values xmax (* line-cnt (stream-line-height stream style))))))
   
   ;;; These things are needed mainly for annotations, but they are kept in a separate
   ;;; file to minimize the clutter in the annotations code.
  
positive.code: 				(format stream label)
  				(terpri stream)
  				(setq highlighted-values
  				  #+clim-2
  				  (accept
  				   ptype
  				   :default highlighted-values
  				   :view
  				   '(check-box-view :orientation :vertical)
  				   :prompt "Choose Several"
  				   :stream stream)
  				  #-clim-2
  				  (accept ptype
  					  :default highlighted-values
  					  :prompt "Choose Several"
  					  :stream stream))
  				(terpri stream)))
  	  (values nil t)
  	(nreverse highlighted-values)))))
  
negative.code:   (let* ((rad (values (truncate (- size 2) 2)))
  	 (offset rad))
      ;; Since clim insists on flipping the coordinate system...
      (setq offset (- offset))
      (multiple-value-bind (x y) (stream-cursor-position* stream)
        (draw-circle (+ x offset) (+ y offset)
  		   rad :stream stream :filled selected-p)
        (if selected-p
  