diff --git a/collects/mred/edit.ss b/collects/mred/edit.ss
index c9f3b26c..8150101d 100644
--- a/collects/mred/edit.ss
+++ b/collects/mred/edit.ss
@@ -54,6 +54,11 @@
 		 #\Q)
 
     (append-editor-operation-menu-items edit-menu #f)
+    (when (eq? editor% text%)
+      (make-object separator-menu-item% edit-menu)
+      (make-object checkable-menu-item% "Wrap Lines" edit-menu
+		   (lambda (item event)
+		     (send e auto-wrap (send item is-checked?)))))
 
     (append-editor-font-menu-items font-menu)
     (let ([m (make-object menu% "Smoothing" font-menu)])