From 978613be504c170c44ddacc71828bb2f7ceaa725 Mon Sep 17 00:00:00 2001
From: Tom Willemsen
Date: Sun, 11 Mar 2012 11:08:03 +0100
Subject: .xbindkeysrc.scm

---
 .xbindkeysrc.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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"
-- 
cgit v1.2.3-54-g00ecf