Index: /trunk/source/level-1/l1-clos-boot.lisp
===================================================================
--- /trunk/source/level-1/l1-clos-boot.lisp	(revision 14549)
+++ /trunk/source/level-1/l1-clos-boot.lisp	(revision 14550)
@@ -2783,5 +2783,5 @@
 	       (instance.class-wrapper slotd))
 	   (eq *standard-class-wrapper* (instance.class-wrapper class))
-           (let* ((allocation (standard-effective-slot-definition.location slotd)))
+           (let* ((allocation (standard-effective-slot-definition.allocation slotd)))
              (or (eq allocation :instance) (eq allocation :class))))
     (%std-slot-vector-value (instance-slots instance) slotd)