diff --git a/basis/inverse/inverse.factor b/basis/inverse/inverse.factor
index cf97a0b2c8..2183c95f08 100755
--- a/basis/inverse/inverse.factor
+++ b/basis/inverse/inverse.factor
@@ -236,7 +236,7 @@ DEFER: __
     "predicate" word-prop [ dupd call assure ] curry ;
 
 : slot-readers ( class -- quot )
-    all-slots [ name>> reader-word 1quotation ] map [ cleave ] curry ;
+    class-slots [ name>> reader-word 1quotation ] map [ cleave ] curry ;
 
 : ?wrapped ( object -- wrapped )
     dup wrapper? [ wrapped>> ] when ;
diff --git a/extra/classes/struct/struct-tests.factor b/extra/classes/struct/struct-tests.factor
index 958a7ea55c..5806960332 100644
--- a/extra/classes/struct/struct-tests.factor
+++ b/extra/classes/struct/struct-tests.factor
@@ -1,5 +1,5 @@
 USING: accessors alien.c-types classes.c-types classes.struct
-combinators kernel tools.test ;
+combinators inverse kernel tools.test ;
 IN: classes.struct.tests
 
 STRUCT: foo
@@ -28,3 +28,5 @@ STRUCT: bar
 
 [ 7654 ] [ S{ foo f 98 7654 f } y>> ] unit-test
 [ 7654 ] [ S{ foo { y 7654 } } y>> ] unit-test
+
+[ 98 7654 t ] [ S{ foo f 98 7654 t } [ foo boa ] undo ] unit-test