diff --git a/ansi-tests/defclass-02.lsp b/ansi-tests/defclass-02.lsp
index 7c8451e75e64daaed52e55fcd8581a552ac3286f..b940ad9410b9ee4482923f794542382b0596b282 100644
--- a/ansi-tests/defclass-02.lsp
+++ b/ansi-tests/defclass-02.lsp
@@ -88,7 +88,7 @@
      (map-slot-boundp* c2 '(a b c d))
      (slot-value c1 'a)
      (slot-value c2 'a)
-     (eq (slot-makunbound c2 'a) c1)
+     (eq (slot-makunbound c2 'a) c2)
      (map-slot-boundp* c1 '(a b))
      (map-slot-boundp* c2 '(a b c d))))
   (nil nil)
@@ -168,6 +168,8 @@
 
 ;;;
 
+;;; Show shadowing of slots by :allocation
+
 (defclass class-0207a ()
   ((a :allocation :class)))
 
@@ -212,3 +214,4 @@
   z
   t t t
   x y z)
+