diff --git a/.xbindkeysrc.scm b/.xbindkeysrc.scm
index bf5a77d..295fb17 100644
--- a/.xbindkeysrc.scm
+++ b/.xbindkeysrc.scm
@@ -27,10 +27,8 @@
     (close-port file)
     tags))
 
-(define (get-tag tags pipe)
-  (read-line pipe))
-
 (define (choose-tag prompt tags)
+  "Ask to choose a tag"
   (let* ((file (open-input-pipe
                 (string-append "echo '" (string-join tags "\n")
                                "' | " dmenu-cmd " -p '" prompt ":'")))
@@ -45,7 +43,7 @@
     (if (string? tag)
         (begin
           (if (not (member tag tags))
-              (run-command (string-append "herbstclient add " tag)))
+              (system (string-append "herbstclient add " tag)))
           (run-command (string-append "herbstclient use " tag))))
     (reset-main-binding)))
 
@@ -56,7 +54,7 @@
     (if (string? tag)
         (begin
           (if (member tag tags)
-              (run-command (string-append "herbstclient merge_tag " tag)))))
+              (system (string-append "herbstclient merge_tag " tag)))))
     (reset-main-binding)))
 
 (define (move-to-tag)
@@ -66,7 +64,7 @@
     (if (string? tag)
         (begin
           (if (not (member tag tags))
-              (run-command (string-append "herbstclient add " tag)))
+              (system (string-append "herbstclient add " tag)))
           (run-command (string-append "herbstclient move " tag))))
     (reset-main-binding)))