diff --git a/rktplayer.rkt b/rktplayer.rkt
index ba60029..eba395c 100644
--- a/rktplayer.rkt
+++ b/rktplayer.rkt
@@ -2,6 +2,7 @@
 
 (require racket/gui
          "gui.rkt"
+         "tray.rkt"
          simple-ini/class
          racket-sound
          racket-webview
@@ -45,7 +46,9 @@
                        [file-getter my-file-getter]
                        ))
          )
-    (let ((window (new rktplayer% [wv-context context] [log-file log-file])))
+    (let* ((window (new rktplayer% [wv-context context] [log-file log-file]))
+           (tray (new rktplayer-tray% [player-gui window]))
+           )
       (set! rktplayer-window window)
       (when (and (not (null? no-exit))
                  (not (eq? (car no-exit) #t)))