anchor.diff:  	    (with-drawing-options (pane :ink clim:+grey41+)
   	      (format pane "~A: " (frame-no stack-frame))))
   	  (slim:cell
  -	    (present stack-frame 'stack-frame :view (view stack-frame))))))
  -    (when (>= (length (backtrace (condition-info pane)))
  -	      +initial-backtrace-length+)
  -      (slim:row
  -        (slim:cell)
  -        (slim:cell
  -          (bold (pane)
  -            (present pane 'more-type)))))))
  +	    (present stack-frame 'stack-frame :view (view stack-frame))))))))
   
   (defun print-stack-frame-header (object stream)
     (let* ((frame-string (frame-string object))
  
positive.code: 					:keystroke :more)
      ()
    (let ((pane (clim:find-pane-named *application-frame* 'debugger-pane)))
      (expand-backtrace (condition-info pane) 10)))
  
  (define-clim-debugger-command (com-invoke-inspector :name "Invoke inspector")
      ((obj 'inspect))
  
negative.code: 		 :frame-no        frame-no
  		 :frame-variables (swank-backend::frame-locals frame-no))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;   CLIM stuff   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  (defclass debugger-pane (application-pane)
    ((condition-info :reader  condition-info :initarg :condition-info)
     (shown-frames :accessor shown-frames :initform 5)))
  
  (defun make-debugger-pane ()
    (with-look-and-feel-realization ((frame-manager *application-frame*)
  