diff --git a/core/classes/tuple/parser/parser-tests.factor b/core/classes/tuple/parser/parser-tests.factor
index 88fca567f4..350b594274 100644
--- a/core/classes/tuple/parser/parser-tests.factor
+++ b/core/classes/tuple/parser/parser-tests.factor
@@ -150,9 +150,3 @@ TUPLE: parsing-corner-case x ;
     TUPLE: book { name initial-quot: [ "Lord of the " "Rings" append ] } ;">
     eval( -- )
 ] unit-test
-
-[ ] [
-    <" IN: classes.tuple.tests
-    TUPLE: monster { hp virtual } ;">
-    eval( -- )
-] unit-test
diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index 9e0c0b7316..55fbdf725f 100755
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -75,9 +75,7 @@ PRIVATE>
 : tuple-slots ( tuple -- seq )
     prepare-tuple>array drop copy-tuple-slots ;
 
-GENERIC: slots>tuple ( seq class -- tuple )
-
-M: tuple-class slots>tuple
+: slots>tuple ( seq class -- tuple )
     check-slots pad-slots
     tuple-layout <tuple> [
         [ tuple-size ]