diff --git a/core/classes/tuple/tuple.factor b/core/classes/tuple/tuple.factor
index d730128d38..21f166cf32 100644
--- a/core/classes/tuple/tuple.factor
+++ b/core/classes/tuple/tuple.factor
@@ -103,7 +103,7 @@ M: tuple-class slots>tuple ( seq class -- tuple )
         bi 2each
     ] keep ;
 
-: tuple>array ( tuple -- seq )
+: tuple>array ( tuple -- array )
     [ tuple-slots ] [ class-of prefix ] bi ;
 
 : >tuple ( seq -- tuple )