anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   
   (define-clim-debugger-command (com-more :name "More backtraces"
  -					:keystroke :more)
  +                                        :keystroke :more)
       ()
     (let ((pane (clim:find-pane-named *application-frame* 'debugger-pane)))
       (setf #1=(shown-frames pane)
  -	  (min (+ #1# 10) (length (backtrace (condition-info pane)))))))
  +          (min (+ #1# 10) (length (backtrace (condition-info pane)))))))
   
   (define-clim-debugger-command (com-invoke-inspector
  -			       :name "Invoke inspector")
  +                               :name "Invoke inspector")
       ((obj inspect))
     (clouseau:inspector obj :new-process t))
   
   (define-clim-debugger-command (com-refresh :name "Refresh" :menu t
  -					   :keystroke #\r) ()
  +                                           :keystroke #\r) ()
     (change-space-requirements (frame-panes *application-frame*)))
   
   (define-clim-debugger-command (com-next :keystroke :next)
  
positive.code:     (setf #1=(active-frame pane) (max (1- #1#) 0))))
  
  (define-clim-debugger-command (com-eval :name "Eval in frame" :menu t
  					:keystroke :eval) ((form clim:string))
    (let* ((dbg-pane (clim:find-pane-named *application-frame* 'debugger-pane))
           (active-frame (active-frame dbg-pane)))
      (swank:eval-string-in-frame
       form active-frame (swank-backend:frame-package active-frame))))
  
  (define-clim-debugger-command (com-quit :name "Quit" :menu t
  					:keystroke :exit) ()
    (frame-exit *application-frame*))
  
  (define-clim-debugger-command (com-invoke-restart :name "Invoke restart")
  
negative.code:   (frame-exit *application-frame*))
  
  (define-clim-debugger-command (com-toggle-stack-frame-view
                                 :name "Toggle stack frame view")
      ((stack-frame 'stack-frame))
  
    (let ((dbg-pane (clim:find-pane-named *application-frame* 'debugger-pane)))
  