; Fix thinko

(cherry picked from commit 83e2e5e24b72f7a271c04a0ce9cad1399fb2a0f9)

diff --git a/test/lisp/vc/vc-tests.el b/test/lisp/vc/vc-tests.el
index 49a6f2c38f5f029cd2b4f6811e45be3ed195bdd6..f13a200cd99cae7d8261404a9a1fe01d85a087e2 100644 (file)
--- a/test/lisp/vc/vc-tests.el
+++ b/test/lisp/vc/vc-tests.el
@@ -179,9 +179,9 @@ For backends which don't support it, it is emulated."
 
 (defmacro vc--fix-home-for-bzr (tempdir)
   ;; See the comment in `vc-bzr-test-bug9726'.
-  '(when (eq backend 'Bzr)
-     (push (format "BZR_HOME=%s" tempdir) process-environment)
-     (push (format "HOME=%s" tempdir) process-environment)))
+  `(when (eq backend 'Bzr)
+     (push (format "BZR_HOME=%s" ,tempdir) process-environment)
+     (push (format "HOME=%s" ,tempdir) process-environment)))
 
 (defun vc-test--create-repo (backend)
   "Create a test repository in `default-directory', a temporary directory."