anchor.diff:             align-prompts label scroll-bars
              x-position y-position width height command-table frame-class)
        &body body)
  -  (declare (ignorable own-window exit-boxes initially-select-query-identifier
  +  (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)
  -    `(flet ((,accepting-values-continuation (,stream)
  -              ,@body))
  -       (invoke-accepting-values ,stream
  -                                #',accepting-values-continuation
  -                                ,@args))))
  +    (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
  
positive.code: 
  (defvar *accepting-values-stream* nil)
  
  (defmacro accepting-values
      ((&optional (stream t)
        &rest args
  
negative.code:      (frame-class 'accept-values))
    (declare (ignore own-window exit-boxes modify-initial-query
      resize-frame label scroll-bars x-position y-position
      width height frame-class))
    (when (and align-prompts ;; t means the same as :right
               (not (eq align-prompts :left)))
      (setf align-prompts :right))
    (multiple-value-bind (cx cy) (stream-cursor-position stream)
      (let* ((*accepting-values-stream*
              (make-instance 'accepting-values-stream
  