diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt
index c443465..1849e28 100644
--- a/racket-webview-qt.rkt
+++ b/racket-webview-qt.rkt
@@ -511,6 +511,10 @@
 ;(set! quiet-call (start-event-processing))
 (define evt-cb-hash (make-hash))
 
+
+;; TODO Make this more semaphore like..
+;; EG callback from library.
+
 (define (start-event-processing)
   (thread (λ ()
             (letrec ((f (λ ()
@@ -540,7 +544,7 @@
                                    (set! waiting (- waiting 1))
                                    )
                             )
-                          (sleep 0.005)
+                          (sleep 0.05)
                           (f))
                         ))
               (f)))