diff --git a/extra/poker/poker-docs.factor b/extra/poker/poker-docs.factor
index 388239d549..fef47b859c 100644
--- a/extra/poker/poker-docs.factor
+++ b/extra/poker/poker-docs.factor
@@ -17,7 +17,7 @@ HELP: best-hand
 { $description "Creates a new poker hand containing the best possible combination of the cards specified in " { $snippet "str" } "." }
 { $examples
     { $example "USING: kernel poker prettyprint ;"
-        "\"AS KD JC KH 2D 2S KH\" best-hand >value ." "\"Full House\"" }
+        "\"AS KD JC KH 2D 2S KC\" best-hand >value ." "\"Full House\"" }
 } ;
 
 HELP: >cards
diff --git a/extra/poker/poker-tests.factor b/extra/poker/poker-tests.factor
index 3c8e5159ab..6b05178462 100644
--- a/extra/poker/poker-tests.factor
+++ b/extra/poker/poker-tests.factor
@@ -27,4 +27,4 @@ IN: poker.tests
 [ t ] [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ <hand> ] bi@ = ] unit-test
 [ f ] [ "7C 5D 4H 3S 2C" "7D 5D 4D 3C 2S" [ <hand> ] bi@ eq? ] unit-test
 
-[ 190 ] [ "AS KD JC KH 2D 2S KH" best-hand value>> ] unit-test
+[ 190 ] [ "AS KD JC KH 2D 2S KC" best-hand value>> ] unit-test