Fix tests

diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index 5eb32fb5ce39adb31a6475132855e02d35d7b2a3..9deb6b113385e0c91b3057b810830bc5241d78e1 100755 (executable)
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -668,7 +668,7 @@ ERROR: error-class-test a b c ;
 
 DEFER: error-y
 
-[ ] [ [ \ error-y forget-class ] with-compilation-unit ] unit-test
+[ ] [ [ \ error-y dup class? [ forget-class ] [ drop ] if ] with-compilation-unit ] unit-test
 
 [ ] [ "IN: classes.tuple.tests GENERIC: error-y" eval ] unit-test