diff --git a/basis/editors/emacs/emacs.factor b/basis/editors/emacs/emacs.factor
index eae6a3077b..1550fccc0b 100644
--- a/basis/editors/emacs/emacs.factor
+++ b/basis/editors/emacs/emacs.factor
@@ -4,14 +4,12 @@ IN: editors.emacs
 
 : emacsclient ( file line -- )
     [
-        \ emacsclient get ,
+        \ emacsclient get "emacsclient" or ,
         "--no-wait" ,
         "+" swap number>string append ,
         ,
     ] { } make try-process ;
 
-\ emacsclient "emacsclient" set-global
-
 : emacs ( word -- )
     where first2 emacsclient ;