Fix typo in last change.

diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index 13744b79e0e3a9161b978171ced593181fb312c8..c454bf25f8d781046e273f2189d45d682f691608 100644 (file)
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: intmod.scm,v 1.70 1993/10/16 10:11:21 cph Exp $
+;;;    $Id: intmod.scm,v 1.71 1993/10/16 11:07:21 cph Exp $
 ;;;
 ;;;    Copyright (c) 1986, 1989-93 Massachusetts Institute of Technology
 ;;;
@@ -306,7 +306,7 @@ REPL uses current evaluation environment."
                (write-string
                 ";Type D to debug error, Q to quit back to REP loop: "
                 port)
-               (let ((char (read-command-char port (cmdl/level rep))))
+               (let ((char (read-command-char port (cmdl/level repl))))
                  (write-char char port)
                  (cond ((char-ci=? char #\d)
                         (fresh-line port)