bitmaps & catch-errors

[Matthew Edward Day <md2w+@andrew.cmu.edu>]

Would anybody happen to know if there is a 2.0 equivalent
of the catch-error-quietly facility?  Also, should this
code really hang my machine?:
 
(defmacro bad-code (b-map)
  `(rlet ((r :rect :topleft 0 :bottomright #@(32 32)))
    (with-focused-view w
      (copy-bits (rref (slot-value w 'wptr) windowrecord.portbits)
                 ,b-map
                 dest-rect
                 (rref ,b-map bitmap.bounds)
                 :patCopy))))

The intended purpose of the code is to copy a small section of
a window into a non-displayed bitmap.

I believe that the error is in the second to last line.  However,
with-pointers and with-dereferenced-handles don't work.  Neither
does rebuilding the :rect record out of the bitmap.bounds.topleft
and bitmap.bounds.bottomright components.  
 
The bitmap sent to the macro is initialized with
(defvar bm (make-bitmap 0 0 32 32))

Thanks for any assistance...
Matt Day