diff --git a/collects/framework/comment-snip.ss b/collects/framework/comment-snip.ss
index df9aa3a4..23acda98 100644
--- a/collects/framework/comment-snip.ss
+++ b/collects/framework/comment-snip.ss
@@ -28,7 +28,7 @@
       (define/override (make-snip) (make-object comment-box-snip%))
       (define/override (get-corner-bitmap) bm)
 
-      (define/override (make-menu)
+      (define/override (get-menu)
         (let ([menu (make-object popup-menu%)])
           (make-object menu-item% 
             (string-constant convert-to-semicolon-comment)