anchor.diff:  (defun simple-break ()
     (with-simple-restart  (continue "Continue from interrupt.")
       (with-debugger
  -      (invoke-debugger 
  -       (make-condition 'simple-error 
  +      (invoke-debugger
  +       (make-condition 'simple-error
                          :format-control "Debugger test")))))
  -
  
positive.code: 		    (clim:with-text-family (pane :fix)
  		      (format t "~A" (condition-extra (condition-info pane))))))))
      (fresh-line)
      
      (with-text-family (pane :sans-serif)
        (bold (pane) (format t "Restarts:")))
      (fresh-line)
  
negative.code:   (setf (returned-restart *application-frame*) restart)
    (frame-exit *application-frame*))
  
  (define-clim-debugger-command (com-toggle-stack-frame-view
  			       :name "Toggle stack frame view")
      ((stack-frame 'stack-frame))
  
  