From 1fd95d310213c2312fe22e9a56272af80aa2f871 Mon Sep 17 00:00:00 2001
From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Thu, 5 Dec 1991 16:18:51 +0000
Subject: [PATCH] Made consistent with new evaluation commands.

---
 v7/src/edwin/artdebug.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/artdebug.scm b/v7/src/edwin/artdebug.scm
index 27cfcf4ce..3e6575d74 100644
--- a/v7/src/edwin/artdebug.scm
+++ b/v7/src/edwin/artdebug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.14 1991/11/26 08:02:40 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/artdebug.scm,v 1.15 1991/12/05 16:18:51 markf Exp $
 ;;;
 ;;;	Copyright (c) 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -392,7 +392,7 @@ Use \\[kill-buffer] to quit the debugger."
   (local-set-variable! transcript-buffer-name (current-buffer))
   (local-set-variable! comint-input-ring
 		       (make-ring (ref-variable comint-input-ring-size)))
-  (local-set-variable! transcript-input-recorder
+  (local-set-variable! evaluation-input-recorder
 		       continuation-browser-input-recorder)
   (local-set-variable! transcript-output-wrapper
 		       continuation-browser-output-wrapper))
-- 
2.25.1