class of adjustable strings

Hi,

with openmcl-linuxx8664-snapshot-061231 I get this:

CL-USER> (class-of (make-array 9 :element-type 'character :adjustable t))
#<BUILT-IN-CLASS T>                                                             

The correct answer should be a subclass of STRING, right?


Thanks,
David