diff --git a/src/clos/std-slot-value.lsp b/src/clos/std-slot-value.lsp
index 69e6e14e8..294b35f14 100644
--- a/src/clos/std-slot-value.lsp
+++ b/src/clos/std-slot-value.lsp
@@ -221,7 +221,7 @@
 	  (let ((location (gethash slot-name location-table nil)))
 	    (if location
 		(si:sl-boundp (standard-instance-get self location))
-		(slot-missing class self slot-name 'SLOT-VALUE)))
+		(values (slot-missing class self slot-name 'SLOT-BOUNDP))))
 	  (let ((slotd (find slot-name (class-slots class) :key #'slot-definition-name)))
 	    (if slotd
 		(slot-boundp-using-class class self slotd)