diff --git a/wv-tray.rkt b/wv-tray.rkt
index dde1810..542d005 100644
--- a/wv-tray.rkt
+++ b/wv-tray.rkt
@@ -20,7 +20,8 @@
       (let ((event (hash-ref evt 'event 'unknown-event)))
         (cond
           [(eq? event 'tray-activated)
-           (send this activated (hash-ref evt 'reason 'unknown))]
+           (send this activated (string->symbol
+                                 (format "~a" (hash-ref evt 'reason 'unknown))))]
 
           [(eq? event 'tray-message-clicked)
            (send this message-clicked)]
diff --git a/wv-window.rkt b/wv-window.rkt
index 4f9a73c..ab91ea7 100644
--- a/wv-window.rkt
+++ b/wv-window.rkt
@@ -236,6 +236,9 @@
       (send settings set! 'height h)
       )
 
+    (define/public (window-state)
+      (webview-window-state wv))
+
     (define/public (window-state-changed st)
       #t
       )