diff --git a/src/line-oriented-window.lisp b/src/line-oriented-window.lisp
index 4d24a93..cacbd55 100644
--- a/src/line-oriented-window.lisp
+++ b/src/line-oriented-window.lisp
@@ -548,7 +548,8 @@ will fire the `callback' function (with the selected field from `all-fields'
       (draw)
       (loop named inner
          for c = (tui:decode-key-event (c:get-wide-event low-level-window))
-         while (string/= c "q")
+            while (and (string/= c "q")
+                       (string/= c "^G"))
             do
            (cond
              ((string= c :key-arrow-up)