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*"))