From f92efa7396fbc09954a5d4e3a29cb89bd6c078a4 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 21 Feb 1999 00:29:53 +0000
Subject: [PATCH] bug fixes

original commit: a15d8111084a3aec699543b1c41213a6abcf399f
---
 src/mred/wrap/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 56849779..91d7a478 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3895,7 +3895,7 @@
 	 (set! wx-menu (make-object wx-menu% this #f void))
 	 (super-init parent label help-string wx-menu #f (send wx-menu get-keymap) (lambda (x) x))
 	 (let ([wx-item (mred->wx this)])
-	   (set-cdr! (send wx-item get-menu-data) wx-item) ; for meta-shortcuts
+	   (set-cdr! (send wx-item get-menu-data) wx-menu) ; for meta-shortcuts
 	   (send wx-item set-wx-menu wx-menu)))))))
 
 (define popup-menu%