diff --git a/rktplayer.rkt b/rktplayer.rkt
index 678d692..ba60029 100644
--- a/rktplayer.rkt
+++ b/rktplayer.rkt
@@ -37,7 +37,7 @@
 
 (define rktplayer-window #f)
 
-(define (run)
+(define (run . no-exit)
   (let* ((ini (new ini% [file 'rktplayer]))
          (context (new wv-context%
                        [base-path rkt-gui-dir]
@@ -47,11 +47,14 @@
          )
     (let ((window (new rktplayer% [wv-context context] [log-file log-file])))
       (set! rktplayer-window window)
-      (webview-wait-for-quit)
-      (webview-exit)
-      (exit))
+      (when (and (not (null? no-exit))
+                 (not (eq? (car no-exit) #t)))
+        (webview-wait-for-quit)
+        (webview-exit)
+        (exit))
+      )
     )
   )
 
-(run)
+;(run)