Index: /branches/working-0711/ccl/level-1/l1-clos-boot.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-clos-boot.lisp	(revision 9603)
+++ /branches/working-0711/ccl/level-1/l1-clos-boot.lisp	(revision 9604)
@@ -2917,5 +2917,5 @@
   (let* ((wrapper (instance-class-wrapper instance))
          (class (%wrapper-class wrapper))
-         (slotd (funcall (%wrapper-slot-id->slotd wrapper) slot-id)))
+         (slotd (funcall (%wrapper-slot-id->slotd wrapper) instance slot-id)))
     (if slotd
       (%maybe-std-slot-boundp-using-class class instance slotd)