diff --git a/core/classes/tuple/tuple-tests.factor b/core/classes/tuple/tuple-tests.factor
index 5ea14999ed..45af82ea83 100644
--- a/core/classes/tuple/tuple-tests.factor
+++ b/core/classes/tuple/tuple-tests.factor
@@ -631,12 +631,16 @@ DEFER: error-y
 
 [ f ] [ \ error-y tuple-class? ] unit-test
 
+[ f ] [ \ error-y error-class? ] unit-test
+
 [ t ] [ \ error-y generic? ] unit-test
 
 [ ] [ "IN: classes.tuple.tests ERROR: error-y ;" eval( -- ) ] unit-test
 
 [ t ] [ \ error-y tuple-class? ] unit-test
 
+[ t ] [ \ error-y error-class? ] unit-test
+
 [ f ] [ \ error-y generic? ] unit-test
 
 [ ] [
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index ab61fa6c37..ed62956f5d 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -293,6 +293,10 @@ M: tuple-class (define-tuple-class)
 PREDICATE: error-class < tuple-class
     "error-class" word-prop ;
 
+M: error-class reset-class
+    [ "error-class" remove-word-prop ]
+    [ call-next-method ] bi ;
+
 : define-error-class ( class superclass slots -- )
     error-slots {
         [ define-tuple-class ]