diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index d1c9479..4567611 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -90,9 +90,11 @@ the command."
                 (string-append "dmenu_pick -p 'Run:' " dmenu-args)))
          (prog (read-line file)))
     (close-port file)
-    (switch-to-tag prog)
-    (run-command prog))
-  (reset-main-binding))
+    (if (string? prog)
+        (begin
+          (switch-to-tag prog)
+          (run-command prog)))
+  (reset-main-binding)))
 
 (define (kill-tag)
   "Kill a selected tag"