anchor.diff:  (defmethod frame-standard-output ((frame listener))
     (get-frame-pane frame 'interactor))
   
  -(defun run-listener (&key (system-command-reader nil)
  -                          (new-process nil)
  +(defun run-listener (&key (new-process nil)
                             (width 760)
                             (height 550)
  -                          (process-name "Listener")
  -                          (eval nil))
  +                          (process-name "Listener"))
     (flet ((run ()
              (let ((frame (make-application-frame 
                            'listener
  -                         :width width :height height
  -                         :system-command-reader system-command-reader)))
  -             (run-frame-top-level 
  -              frame :listener-funcall (cond ((null eval) nil)
  -                                            ((functionp eval) eval)
  -                                            (t (lambda () (eval eval))))))))
  +                         :width width :height height)))
  +             (run-frame-top-level frame))))
       (if new-process
           (clim-sys:make-process #'run :name process-name)
           (run))))
  
positive.code: (defmethod stream-present :around 
      ((stream listener-interactor-pane) object type
       &rest args &key (single-box nil sbp) &allow-other-keys)
    (apply #'call-next-method stream object type :single-box t args)
    ;; we would do this, but CLIM:PRESENT calls STREAM-PRESENT with all
    ;; the keyword arguments explicitly.  *sigh*.
    #+nil 
  
negative.code: 
  ;;; Lisp listener command loop
  
  (defmethod read-frame-command ((frame listener) &key (stream *standard-input*))  
    "Specialized for the listener, read a lisp form to eval, or a command."
    (multiple-value-bind (object type)
        (accept 'command-or-form :stream stream :prompt nil)
      (format *trace-output* "~&object=~W~%" object)
      (if (presentation-subtypep type 'command)
          object
          `(com-eval ,object))))
  
  (defun print-listener-prompt (stream frame)
    (declare (ignore frame))
  