[plt-scheme] class-name

The inferred name of a class always includes a "class:" prefix:

> (object-name (let ((foo (class object%))) foo))
class:foo

Is there a procedure for getting the name of a class, without the prefix?
If not, seems like there should be.  (Or, I'd be happy if object-name
didn't add the prefix.)

--dougo at ccs.neu.edu