diff --git a/collects/mred/private/wxmenu.ss b/collects/mred/private/wxmenu.ss
index ebe4e723..975a5314 100644
--- a/collects/mred/private/wxmenu.ss
+++ b/collects/mred/private/wxmenu.ss
@@ -64,8 +64,8 @@
 					   (ormap
 					    (lambda (i)
 					      (let* ([data (send (mred->wx i) get-menu-data)]
-						     [label (car data)]
-						     [menu (cdr data)])
+						     [label (mcar data)]
+						     [menu (mcdr data)])
 						(if (regexp-match re label)
 						    (begin
 						      (send menu select this)