From 5270fcbc6c66c2ecb4454ac724d796dfe3eabcff Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 29 Jan 2010 00:14:06 +0000
Subject: [PATCH] fix name of Basic style in style-list<%>

svn: r17878
---
 collects/mred/private/wxme/style.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/private/wxme/style.ss b/collects/mred/private/wxme/style.ss
index 3ac2ef9444..8bb830a326 100644
--- a/collects/mred/private/wxme/style.ss
+++ b/collects/mred/private/wxme/style.ss
@@ -621,7 +621,7 @@
   (define/public (s-set-as-basic slist)
     (set! style-list slist)
 
-    (set! name "basic")
+    (set! name "Basic")
     (set! base-style #f)
 
     (set! nonjoin-delta (new style-delta%))