diff --git a/lisp/play/tetris.el b/lisp/play/tetris.el
index af1004e0811..d9bc0dd020c 100644
--- a/lisp/play/tetris.el
+++ b/lisp/play/tetris.el
@@ -364,8 +364,8 @@ each one of its four blocks.")
   (setq tetris-shape tetris-next-shape)
   (setq tetris-rot 0)
   (setq tetris-next-shape (if tetris-allow-repetitions
-                              (tetris--seven-bag)
-                            (random 7)))
+                              (random 7)
+                            (tetris--seven-bag)))
   (setq tetris-pos-x (/ (- tetris-width (tetris-shape-width)) 2))
   (setq tetris-pos-y 0)
   (if (tetris-test-shape)