diff --git a/collects/framework/decorated-editor-snip.ss b/collects/framework/decorated-editor-snip.ss
index 61e8864a1f..10c8f1c200 100644
--- a/collects/framework/decorated-editor-snip.ss
+++ b/collects/framework/decorated-editor-snip.ss
@@ -35,7 +35,7 @@
       (inherit get-admin)
       (define/override (on-event dc x y editorx editory evt)
         (cond
-          [(send evt get-right-down)
+          [(eq? (send evt get-event-type) 'right-down)
            (let ([sx (- (send evt get-x) x)]
                  [sy (- (send evt get-y) y)]
                  [bil (box 0)]