diff --git a/extra/poker/poker.factor b/extra/poker/poker.factor
index 15e9a96d42..b4353dc925 100644
--- a/extra/poker/poker.factor
+++ b/extra/poker/poker.factor
@@ -194,8 +194,12 @@ M: hand equal?
 : >value ( hand -- str )
     hand-rank VALUE_STR nth ;
 
+TUPLE: deck
+    { cards sequence } ;
+
 : <deck> ( -- deck )
-    RANK_STR SUIT_STR 2array [ concat >ckf ] product-map ;
+    RANK_STR SUIT_STR 2array [ concat >ckf ] product-map deck boa ;
 
-ALIAS: shuffle randomize
+: shuffle ( deck -- deck )
+    [ randomize ] change-cards ;