anchor.diff:        (apply #'call-next-method stream object type :single-box t args)))
   
   ;;; Listener application frame
  -(define-application-frame listener (standard-application-frame
  -                                    command-history-mixin)
  +(define-application-frame listener (standard-application-frame)
       ((system-command-reader :accessor system-command-reader
   			    :initarg :system-command-reader
   			    :initform t))
     (:panes (interactor-container
              (make-clim-stream-pane
               :type 'listener-interactor-pane
  -            :name 'interactor :scroll-bars t :display-time t
  -            :display-function #'listener-initial-display-function))
  +            :name 'interactor :scroll-bars t))
             (doc :pointer-documentation)
             (wholine (make-pane 'wholine-pane
                        :display-function 'display-wholine :scroll-bars nil
  
positive.code: 
  (define-presentation-method accept :around
    ((type sequence) stream (view listener-view) &key default default-type)
    ;; oh, my word.  although TYPE here might look like it's bound to
    ;; the presentation type itself, in fact it is bound to the
    ;; parameter of the SEQUENCE presentation type.  We need the
  
negative.code: (defmethod frame-standard-output ((frame listener))
    (get-frame-pane frame 'interactor))
  
  (defun run-listener (&key (new-process nil)
                            (width 760)
                            (height 550)
                            (process-name "Listener"))
    (flet ((run ()
             (let ((frame (make-application-frame 
                           'listener
                           :width width :height height)))
               (run-frame-top-level frame))))
      (if new-process
          (clim-sys:make-process #'run :name process-name)
          (run))))
  