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