diff --git a/shell/glfw-gamepad.sml b/shell/glfw-gamepad.sml
index b15a96c..a930b4f 100644
--- a/shell/glfw-gamepad.sml
+++ b/shell/glfw-gamepad.sml
@@ -164,7 +164,7 @@ struct
             ()
           else
             let val () = InputMailbox.append KEY_BACKSPACE
-            in #l1Pressed state := false
+            in #l1Pressed state := true
             end
       in
         ()