Index: /branches/working-0711/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos-boot.lisp	(revision 7745)
+++ /branches/working-0711/ccl/level-1/l1-clos-boot.lisp	(revision 7746)
@@ -1279,5 +1279,5 @@
      (setq class (require-type class 'class))
      (when (built-in-type-p name)
-       (unless (eq (cdr cell) class)
+       (unless (eq (class-cell-class cell) class)
          (error "Cannot redefine built-in type name ~S" name)))
      (when (eq (%class.name class) name)