diff --git a/collects/framework/private/keymap.ss b/collects/framework/private/keymap.ss
index 2e80a469..2c939b03 100644
--- a/collects/framework/private/keymap.ss
+++ b/collects/framework/private/keymap.ss
@@ -200,6 +200,7 @@
 		    (make-meta-prefix-list key))))
       
       (define add-to-right-button-menu (make-parameter void))
+      (define add-to-right-button-menu/before (make-parameter void))
 
       (define setup-global
 					; Define some useful keyboard functions
@@ -213,6 +214,9 @@
 		    (let ([a (send edit get-admin)])
 		      (when a
 			(let ([m (make-object popup-menu%)])
+
+                          ((add-to-right-button-menu/before) m edit event)
+
 			  (append-editor-operation-menu-items m)
 			  (for-each
 			   (lambda (i)
diff --git a/collects/framework/private/sig.ss b/collects/framework/private/sig.ss
index 6562a147..dfa988b6 100644
--- a/collects/framework/private/sig.ss
+++ b/collects/framework/private/sig.ss
@@ -270,6 +270,7 @@
      canonicalize-keybinding-string
 
      add-to-right-button-menu
+     add-to-right-button-menu/before
 
      setup-global
      setup-search