anchor.diff:                                         ,@args))
               ))
         `(if  ,own-window
  -            (with-stream-in-own-window (,stream *standard-input* *standard-output*) ,return-form)
  +            (with-stream-in-own-window (,stream *standard-input* *standard-output*)
  +                                       (,label)
  +                                       ,return-form)
              ,return-form))))
   
   (defun invoke-accepting-values
  
positive.code:      &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)
  
negative.code: 
  (defmacro with-stream-in-own-window ((&optional (stream '*query-io*)
                                                  &rest further-streams)
                                       (&optional label)
                                       &rest body)
    `(let* ((,stream (open-window-stream :label ,label
                                         :input-buffer (climi::frame-event-queue *application-frame*)))
            ,@(mapcar (lambda (a-stream)
                        (list a-stream stream))
                      further-streams))
       (unwind-protect
           (progn
             ,@body)
  