anchor.diff:      (fresh-line stream)
       (with-output-as-presentation
   	(stream nil 'exit-button)
  -      (format stream "Exit"))
  +      (format stream "OK"))
       (write-char #\space stream)
       (with-output-as-presentation
   	(stream nil 'abort-button)
  -      (format stream "Abort"))
  +      (format stream "Cancel"))
       (terpri stream)))
   
   (defmethod stream-accept ((stream accepting-values-stream) type
  
positive.code: 
  (defvar *accepting-values-stream* nil)
  
  (defmacro accepting-values
      ((&optional (stream t)
        &rest args
  
negative.code:            align-prompts label scroll-bars
             x-position y-position width height command-table frame-class)
       &body body)
    (declare (ignorable exit-boxes initially-select-query-identifier
              modify-initial-query resynchronize-every-pass resize-frame
              align-prompts label scroll-bars
              x-position y-position width height command-table frame-class))
    (setq stream (stream-designator-symbol stream '*standard-input*))
    (with-gensyms (accepting-values-continuation)
      (let ((return-form
             `(flet ((,accepting-values-continuation (,stream)
                       ,@body))
                (invoke-accepting-values ,stream
                                         #',accepting-values-continuation
                                         ,@args))
              ))
        (if own-window
            `(with-stream-in-own-window (,stream *standard-input* *standard-output*) ,return-form)
            return-form))))
  
  (defun invoke-accepting-values
      (stream body
  