classes.tuple: use class-of in tuple>array.

core/classes/tuple/tuple-docs.factor

@@ -200,6 +200,7 @@ ARTICLE: "tuple-introspection" "Tuple introspection"
     >tuple
     tuple>array
     tuple-slots
+    slots>tuple
 }
 "Tuples can be compared for slot equality even if the tuple class overrides " { $link equal? } ":"
 { $subsections tuple= }

core/classes/tuple/tuple.factor

@@ -103,8 +103,8 @@ M: tuple-class slots>tuple ( seq class -- tuple )
         bi 2each
     ] keep ;
 
-: tuple>array ( tuple -- array )
-    [ tuple-slots ] [ layout-of first prefix ] bi ;
+: tuple>array ( tuple -- seq )
+    [ tuple-slots ] [ class-of prefix ] bi ;
 
 : >tuple ( seq -- tuple )
     unclip slots>tuple ;