diff --git a/wv-window.rkt b/wv-window.rkt
index bf740c4..4390b0b 100644
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -342,7 +342,7 @@
         (for-each (λ (item)
                     (let ((id (car item)))
                       (for-each (λ (evt)
-                                  (send this disconnect! id evt))
+                                  (disconnect! id evt))
                                 events*)
                       ))
                   items)