1 files changed, 1 insertions, 0 deletions

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index cc09c81b23b..68a1bae4145 100644
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -234,6 +234,7 @@ of scheme-program-name).  Runs the hooks from inferior-scheme-mode-hook
         (set-buffer (apply 'make-comint "scheme" (car cmdlist)
                            nil (cdr cmdlist)))
         (inferior-scheme-mode)))
+  (setq scheme-program-name cmd)
   (setq scheme-buffer "*scheme*")
   (switch-to-buffer "*scheme*"))