diff --git a/collects/drscheme/private/drscheme-normal.ss b/collects/drscheme/private/drscheme-normal.ss
index fb30bed566..b1a9386fb9 100644
--- a/collects/drscheme/private/drscheme-normal.ss
+++ b/collects/drscheme/private/drscheme-normal.ss
@@ -78,7 +78,9 @@
 (set-splash-char-observer
  (λ (evt)
    (let ([ch (send evt get-key-code)])
-     (when (equal? ch 'escape) (exit))
+     (when (and (eq? ch #\q)
+                (send evt get-control-down))
+       (exit))
      (when (char? ch)
        ;; as soon as something is typed, load the bitmaps
        (load-magic-images)