anchor.diff:        (when item
           (with-text-style (description (make-text-style :sans-serif :roman :normal))
             (write-string (drawing-test-description item) description))
  -        (handler-case
  +        (if (slot-value *application-frame* 'signal-condition-p)
               (clim:with-drawing-options (output :clipping-region
                                                  (clim:make-rectangle* 0 0 *width* *height*))
                 (clim:draw-rectangle* output 0 0 *width* *height* :filled t
                                       :ink clim:+grey90+)
                 (funcall (drawing-test-drawer item) output))
  -          (condition (condition)
  -            (clim:with-drawing-options (description :ink +red+)
  -              (format description "Backend:~a~%" condition)
  -              (when (slot-value *application-frame* 'signal-condition-p)
  -                (error condition)))))))))
  +            (handler-case
  +                (clim:with-drawing-options (output :clipping-region
  +                                                   (clim:make-rectangle* 0 0 *width* *height*))
  +                  (clim:draw-rectangle* output 0 0 *width* *height* :filled t
  +                                        :ink clim:+grey90+)
  +                  (funcall (drawing-test-drawer item) output))
  +              (condition (condition)
  +                (clim:with-drawing-options (description :ink +red+)
  +                  (format description "Backend:~a~%" condition)))))))))
   
   (defun display-render-output (frame pane)
     (declare (ignore pane))
  
positive.code:                                (funcall (drawing-test-drawer item) stream))))
                  (draw-pattern* output pattern 0 0)
                  (medium-finish-output (sheet-medium output))))
            (condition (condition)
              (clim:with-drawing-options (description :ink +red+)
                (format description "Render:~a~%" condition)
                (when (slot-value *application-frame* 'signal-condition-p)
                  (error condition)))))))))
  
  (defun run-drawing-tests ()
    (run-frame-top-level
  
negative.code:         (item (slot-value frame 'current-selection)))
      (let ((description (get-frame-pane *application-frame* 'description)))
        (when item
          (if (slot-value *application-frame* 'signal-condition-p)
              (with-slots (recording-p) clim:*application-frame*
                (let ((pattern (mcclim-raster-image::with-output-to-image-pattern
                                   (stream :width *width* :height *height* :border-width *border-width*
  