diff --git a/game.scm b/game.scm
index 02dfc37..de64010 100644
--- a/game.scm
+++ b/game.scm
@@ -359,9 +359,9 @@
   (set-menu-state-history! *menu* history))
 
 ;; Menu commands
-(define* (show-menu! #:optional menu)
+(define* (show-menu! #:optional (menu menu:main))
   (push-game-state! 'menu)
-  (set-menu! (or menu menu:main))
+  (set-menu! menu)
   (set-menu-index! -1)
   (set-menu-page! 0)
   (set-menu-history! '()))