diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss
index 40343871..59e6a98b 100644
--- a/collects/tests/mred/item.ss
+++ b/collects/tests/mred/item.ss
@@ -689,10 +689,6 @@
 		     "Add Delete Banana" sbp
 		     (lambda args
 		       (send DELETE-BANANA restore)))
-	(make-object button%
-		     "Toggle Menubar Enable" sbp
-		     (lambda args
-		       (send mb enable (send mb is-enabled?))))
 	(make-object button%
 		     "Counts" sbp
 		     (lambda args
@@ -709,7 +705,15 @@
 		     "Check in Apple" mfbp
 		     (lambda args
 		       (send APPLE-CHECK-ID check #t)))
-	
+	(make-object button%
+		     "Toggle Menubar Enable" mfbp
+		     (lambda args
+		       (send menu-bar enable (not (send menu-bar is-enabled?)))))
+	(make-object button%
+		     "Toggle Apple Enable" mfbp
+		     (lambda args
+		       (send (send apple-menu get-item) enable (not (send (send apple-menu get-item) is-enabled?)))))
+
 	(make-object button%
 		     "Test Labels" lblp 
 		     (lambda args