anchor.diff:  					:keystroke :more)
       ()
     (let ((pane (clim:find-pane-named *application-frame* 'debugger-pane)))
  -    (expand-backtrace (condition-info pane) 10)))
  +    (setf #1=(shown-frames pane)
  +	  (min (+ #1# 10) (length (backtrace (condition-info pane)))))))
   
   (define-clim-debugger-command (com-invoke-inspector :name "Invoke inspector")
       ((obj 'inspect))
  
positive.code:   (fresh-line pane)
    (format pane "   ")
    (slim:with-table (pane)
      (dolist (stack-frame (backtrace (condition-info pane)))
        (with-output-as-presentation
  	  (pane stack-frame 'stack-frame :single-box t)
  	(slim:row
  
negative.code: ;;;   Misc   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
  
  ;;; Borrowed from Andy Hefner
  (defmacro bold ((stream) &body body)
  