diff --git a/racket-webview-qt.rkt b/racket-webview-qt.rkt
index e6e07a2..cfde356 100644
--- a/racket-webview-qt.rkt
+++ b/racket-webview-qt.rkt
@@ -887,11 +887,12 @@
     (dbg-webview "Waiting for thread to stop")
     (while (not (eq? evt-processing-thread #f))
            (dbg-webview "evt-processing-thread = ~a" evt-processing-thread)
-           (sleep 1))
+           (sleep 0.25))
     (dbg-webview "Event processing stopped")
 
     ; cleanup the library
     (dbg-webview "cleanup of the rkt-webview-qt library")
+    (displayln "cleanup webview")
     (rkt_webview_cleanup)
 
     ; Maybe get in error state