From 307f479a4d336aab51e6d65ea193e08efef41d70 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 4 Sep 2002 19:12:11 +0000
Subject: [PATCH] .

original commit: 10e2e0316b5c579bd293316381507bef44272150
---
 collects/mred/mred.ss | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index af7faa63..66e71a58 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -5161,12 +5161,12 @@
     (check-style 'message-box '(ok ok-cancel yes-no) '(caution stop) style)
 
     (let-values ([(one two one-v two-v close-val default)
-		  (case (car style)
-		    [(ok) 
+		  (cond
+		    [(memq 'ok style) 
 		     (values "OK" #f 'ok #f 1 'default=1)]
-		    [(ok-cancel)
+		    [(memq 'ok-cancel style)
 		     (values "OK" "Cancel" 'ok 'cancel 2 'default=1)]
-		    [(yes-no)
+		    [(memq 'yes-no style)
 		     (values "&Yes" "&No" 'yes 'no #f 'no-default)])])
       (case (message-box/custom title message
 				 one two #f