diff --git a/basis/see/see.factor b/basis/see/see.factor
index 800709db95..38a8a48934 100644
--- a/basis/see/see.factor
+++ b/basis/see/see.factor
@@ -191,8 +191,8 @@ M: array pprint-slot-name
 : superclass. ( class -- )
     superclass dup tuple eq? [ drop ] [ "<" text pprint-word ] if ;
 
-: pprint-tuple-class ( class definer -- )
-    <colon pprint-word
+M: tuple-class see-class*
+    <colon \ TUPLE: pprint-word
     {
         [ pprint-word ]
         [ superclass. ]
@@ -201,12 +201,6 @@ M: array pprint-slot-name
     } cleave
     block> ;
 
-M: tuple-class see-class*
-    \ TUPLE: pprint-tuple-class ;
-
-M: error-class see-class* ( class -- )
-    \ ERROR: pprint-tuple-class ;
-
 M: word see-class* drop ;
 
 M: builtin-class see-class*