bin: Use call-with-temporary-checkout when pulling.

* bin/tissue (pull): Use call-with-temporary-checkout.

1 files changed, 1 insertions, 2 deletions

diff --git a/bin/tissue b/bin/tissue
index 948460d..606e36d 100755
--- a/bin/tissue
+++ b/bin/tissue
@@ -403,9 +403,8 @@ HOSTNAME."
                                     repository)))))
               (let ((config (load-config)))
                 (parameterize ((%aliases (tissue-configuration-aliases config)))
-                  (call-with-temporary-directory
+                  (call-with-temporary-checkout (git-top-level)
                    (lambda (temporary-repository-clone)
-                     (clone (git-top-level) temporary-repository-clone)
                      ;; Add the top level of the git repository to the
                      ;; load path since there may be user-written
                      ;; modules in the repository.