1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/server.el b/lisp/server.el
index 7156b7322e3..433d9a7cd26 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -891,7 +891,7 @@ If FRAME is nil or missing, then the selected frame is used."
       (setq env (server-client-get (car clients) 'environment))
       (if (null env)
           (getenv variable)
-        (assq variable env)))))
+        (cdr (assoc variable env))))))
 
 (defun server-unload-hook ()
   (server-start t)