diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 98126e59b..f285504c8 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -70,7 +70,6 @@
 	 (when (and slot-names
 		    (or (eq slot-names 'T)
 			(member slot-name slot-names))
-		    (not (eq (slot-definition-allocation slotd) :class))
 		    (not (slot-boundp instance slot-name)))
 	   (let ((initfun (slot-definition-initfunction slotd)))
 	     (when initfun