diff --git a/contrib/shuffle/shuffle.factor b/contrib/shuffle/shuffle.factor
index c0f7116a38..2b0493d346 100644
--- a/contrib/shuffle/shuffle.factor
+++ b/contrib/shuffle/shuffle.factor
@@ -10,6 +10,9 @@ IN: shuffle
 : -roll ( a b c d -- d a b c )
     -rot >r >r swap r> r> ; inline
 
+: nipd ( a b c -- b c )
+    rot drop ; inline
+
 : 3nip ( a b c d -- d )
     2nip nip ; inline