strange record behavior in MCL2.0B1P2 (system 7)

[cartier@math.uqam.ca (Guillaume Cartier)]

Is the following behavior a bug or am I missing something?

? (setq b (make-bitmap 0 0 10 10))
#<A Mac Zone Pointer Size 34 #x18D240>
? (rref b :bitmap.bounds)
> Error: Illegal attempt to get a pointer to a :RECT within a handle
> While executing: CCL::EXPAND-HANDLE-RECORD-GET

To get to the bounds part of the record I have to specify
the storage type.

? (rref b :bitmap.bounds :storage :pointer)
#<A Mac Non-zone Pointer #x18D246>

This is even stanger behavior...

? (rref b :bitmap.baseaddr)
#<A Mac Non-zone Pointer #x18D24E>
? (rref b :bitmap.baseaddr :storage :pointer)
#<A Mac Non-zone Pointer #x2C0019>

To top it all, it often happens that (make-bitmap)
makes my macintosh crash (even if I just started
a plain MCL!).

Any hints, patches, ... would be *greatly* appreciated.

Guillaume Cartier
LACIM, Universite du Quebec a Montreal.
Bureau: (514) 987-4290
E-Mail: cartier@math.uqam.ca