diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 23b9e6a1..5b7989b9 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4334,7 +4334,7 @@
        [mouse-popup-menu (lambda (edit event)
 			   (let ([a (send edit get-admin)])
 			     (when a
-			       (let ([m (make-object popup-menu% "Edit")])
+			       (let ([m (make-object popup-menu%)])
 				 (append-editor-operation-menu-items m)
 				 ;; Remove shortcut indicators (because they might not be correct)
 				 (for-each
@@ -4346,7 +4346,7 @@
 							   dc-location-to-editor-location
 							   (send event get-x)
 							   (send event get-y))])
-				   (send a popup-menu m x y))))))])
+				   (send a popup-menu m (+ x 5) (+ y 5)))))))])
   (wx:add-text-keymap-functions k)
   (send k add-function "mouse-paste" mouse-paste)
   (send k add-function "mouse-popup-menu" mouse-popup-menu)