From 580f105792cdd301e4f0668696bdb63e73399d33 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 21 Mar 2010 01:37:53 +0000 Subject: [PATCH] fixed a bug in the initialization of the language dialog svn: r18589 --- collects/drscheme/private/language-configuration.ss | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index b6d6a97b83..fab2aebbff 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -741,8 +741,7 @@ (define (open-current-language) (when (and language-to-show settings-to-show) (cond - [(equal? language-to-show - module-language*language) + [(is-a? language-to-show drscheme:module-language:module-language<%>) (module-language-selected)] [else (send languages-hier-list focus) ;; only focus when the module language isn't selected