metaclass compatibility

[ricks%shambhala.Berkeley.EDU@BERKELEY.EDU (Rick L Spickelmier)]

The following gives me an incompatible metaclass error.
Have I done something wrong... (or maybe my VAXLISP PCL is warped...)

(use-package 'pcl)

(defclass class-of-one (class) ())

(defmethod check-super-metaclass-compatibility ((class class)
						(super class-of-one))
  (declare (ignore class super))
  t)

(defmethod check-super-metaclass-compatibility ((super class-of-one)
						(class class))
  (declare (ignore super class))
  t)

(defclass status ()
  ((errors 0))
  (:metaclass class-of-one)
  (:accessor-prefix))