From 094cbcff19bd34e14a7f6815c29679001d2ecde3 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 22 May 2008 21:48:12 +0000 Subject: [PATCH] fixed a bug noticed by SamTH svn: r9931 --- collects/drscheme/private/unit.ss | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss index 7ba5a042ae..9d2461977c 100644 --- a/collects/drscheme/private/unit.ss +++ b/collects/drscheme/private/unit.ss @@ -3686,7 +3686,8 @@ module browser threading seems wrong. (when lang ;; this test can fail when a language has been added wrongly via the tools interface ;; just ignore that menu item, in that case. - (let ([settings (send lang unmarshall-settings marshalled-settings)]) + (let ([settings (or (send lang unmarshall-settings marshalled-settings) + (send lang default-settings))]) (when lang (set! added-one? #t) (new menu-item%