diff --git a/core/grouping/grouping-tests.factor b/core/grouping/grouping-tests.factor
index dcf62e1117..dc3d970fbf 100644
--- a/core/grouping/grouping-tests.factor
+++ b/core/grouping/grouping-tests.factor
@@ -10,3 +10,5 @@ IN: grouping.tests
     2 over set-length
     >array
 ] unit-test
+
+[ { { 1 2 } { 2 3 } } ] [ { 1 2 3 } 2 <sliced-clumps> [ >array ] map ] unit-test
diff --git a/core/grouping/grouping.factor b/core/grouping/grouping.factor
index c12d43160c..caf46e5480 100644
--- a/core/grouping/grouping.factor
+++ b/core/grouping/grouping.factor
@@ -56,7 +56,7 @@ M: clumps set-length
 M: clumps group@
     [ n>> over + ] [ seq>> ] bi ;
 
-TUPLE: sliced-clumps < groups ;
+TUPLE: sliced-clumps < clumps ;
 
 : <sliced-clumps> ( seq n -- clumps )
     sliced-clumps new-groups ; inline