diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 4a325b12..937cd732 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -6231,7 +6231,7 @@
 	    (let loop ([scroll? #f])
 	      (let* ([e (make-object text%)]
 		     [c (make-object editor-canvas% msg-pnl e (if scroll?
-								  '(no-hscroll transparent)
+								  '(no-hscroll)
 								  '(no-hscroll no-vscroll transparent no-border)))])
 		(send c min-width 400)
 		(send c set-line-count 5)