diff --git a/src/prompt.scm b/src/prompt.scm
index c5065a8..81d04cf 100644
--- a/src/prompt.scm
+++ b/src/prompt.scm
@@ -59,10 +59,13 @@
      dpy window (event-mask exposure key-press)
      (lambda (event-channel)
        (map-window dpy window)
+       (grab-keyboard dpy window #f (grab-mode async) (grab-mode async)
+		      current-time)
        (set-input-focus dpy window (revert-to parent) current-time)
        (let* ((gc (create-gc dpy window (make-gc-value-alist)))
 	      (result (do-input dpy parent question answers complete need-edit?
 				window gc options event-channel)))
+	 (ungrab-keyboard dpy current-time)
 	 (free-gc dpy gc)
 	 (destroy-window dpy window)
 	 result)))))