diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index e930e611..b1712faf 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4215,12 +4215,13 @@
 		 (new-prompt))])
       (sequence 
 	(super-init)
-	(let ([s (last-position)])
-	  (insert (format "Welcome to MrEd version ~a." (version)))
+	(let ([s (last-position)]
+	      [m (regexp-match "^(.*), (Copyright.*)$" (banner))])
+	  (insert (format "Welcome to ~a." (cadr m)))
 	  (let ([e (last-position)])
 	    (insert #\newline)
-	    (change-style (send (make-object wx:style-delta% 'change-bold) set-delta-foreground "BLUE") s e)))
-	(output (format "Copyright (c) 1995-99 PLT (Matthew Flatt and Robby Findler)~n"))
+	    (change-style (send (make-object wx:style-delta% 'change-bold) set-delta-foreground "BLUE") s e))
+	  (output (caddr m)))
 	(insert "This is a simple window for evaluating MrEd Scheme expressions.") (insert #\newline)
 	(let ([s (last-position)])
 	  (insert "Quit now and run DrScheme to get a better window.")
@@ -4303,7 +4304,8 @@
      (lambda ()
        (current-output-port user-output-port)
        (current-error-port user-output-port)
-       (current-input-port (make-input-port (lambda () eof) void void)))))
+       (current-input-port (make-input-port (lambda () eof) void void)))
+     #t))
 
   (send repl-display-canvas set-editor repl-buffer)
   (send frame show #t)