diff --git a/extra/sequences/rotated/rotated.factor b/extra/sequences/rotated/rotated.factor
index 8250c76852..0255689fc2 100644
--- a/extra/sequences/rotated/rotated.factor
+++ b/extra/sequences/rotated/rotated.factor
@@ -17,3 +17,6 @@ M: rotated virtual@ [ n>> + ] [ circular>> ] bi ;
 M: rotated virtual-exemplar circular>> ;
 
 INSTANCE: rotated virtual-sequence
+
+: all-rotations ( seq -- seq' )
+    dup length iota [ <rotated> ] with map ;