Fix typo in `insert-register' command.

diff --git a/v7/src/edwin/regcom.scm b/v7/src/edwin/regcom.scm
index 0aadd7747e57fe35989cfe162bb3c8efdc2db33f..2585f2cbcdb38a1a61a102ceab68ab01929a48f1 100644 (file)
--- a/v7/src/edwin/regcom.scm
+++ b/v7/src/edwin/regcom.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regcom.scm,v 1.16 1989/04/15 00:52:16 cph Exp $
+;;;    $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/regcom.scm,v 1.17 1989/04/28 03:52:19 cph Exp $
 ;;;
 ;;;    Copyright (c) 1987, 1989 Massachusetts Institute of Technology
 ;;;
@@ -104,7 +104,7 @@ With prefix arg, puts mark before and point after."
      (let ((value (get-register register)))
        (cond ((string? value) value)
             ((integer? value) (write-to-string value))
-            (else (register-error "does not contain text")))))))
+            (else (register-error register "does not contain text")))))))
 \f
 (define-command append-to-register
   "Append region to text in given register.