diff --git a/basis/mirrors/mirrors-tests.factor b/basis/mirrors/mirrors-tests.factor
index 0a2faee7b0..a4b255b371 100644
--- a/basis/mirrors/mirrors-tests.factor
+++ b/basis/mirrors/mirrors-tests.factor
@@ -49,8 +49,8 @@ TUPLE: color
 { green integer }
 { blue integer } ;
 
-[ \ + make-mirror clear-assoc ] must-fail
-[ \ + make-mirror [ "name" ] dip delete-at ] must-fail
+[ \ + make-mirror clear-assoc ] [ mirror-slot-removal? ] must-fail-with
+[ \ + make-mirror [ "name" ] dip delete-at ] [ mirror-slot-removal? ] must-fail-with
 
 ! Test reshaping with a mirror
 1 2 3 color boa <mirror> "mirror" set