diff --git a/src/key-grab.scm b/src/key-grab.scm
index c15336a..2c16969 100644
--- a/src/key-grab.scm
+++ b/src/key-grab.scm
@@ -119,11 +119,12 @@
 			    (if (or (null? (cdr dones))
 				    (key-grab:override? (car dones)))
 				(car dones)
-				(loop (cdr dones)))))))))
+				(loop (cdr dones))))))))
+	 (cursor (create-font-cursor dpy xc-icon))) ;; options?
     (grab-keyboard dpy (default-root-window dpy) #f
 		   (grab-mode async) (grab-mode async) ;; ??
 		   (key-event-time event))
-    ;; Cursor ?
+    (define-cursor dpy (default-root-window dpy) cursor)
     (let ((result
 	   (call-with-event-channel
 	    dpy (default-root-window dpy) (event-mask key-press)
@@ -150,5 +151,7 @@
 						  (cdr (cdr grab-rest))))
 					  rest))))
 			    (else (loop grabs-rests)))))))))))
+      (undefine-cursor dpy (default-root-window dpy))
+      (free-cursor dpy cursor)
       (ungrab-keyboard dpy current-time)
       result)))