From fcfcf8f8dfd0a01dd269822fe9e44716f86be3c1 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Sat, 16 Oct 2010 02:11:24 +0200
Subject: [PATCH] Bug fix: setting correct default-directory in debug buffers

---
 elisp/geiser-debug.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 7b47cd7..42f1dec 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -79,6 +79,7 @@ buffer.")
          (impl geiser-impl--implementation)
          (module (geiser-eval--get-module))
          (jump nil)
+         (dir default-directory)
          (buffer (current-buffer))
          (debug (eq key 'geiser-debugger)))
     (when debug
@@ -86,6 +87,7 @@ buffer.")
       (geiser-debug--enter-debugger impl))
     (geiser-debug--with-buffer
       (erase-buffer)
+      (when dir (setq default-directory dir))
       (insert what)
       (newline 2)
       (when (and res (not err))
-- 
2.11.4.GIT