diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss
index 21f89bac9e..711317ad3e 100644
--- a/collects/drscheme/private/language-configuration.ss
+++ b/collects/drscheme/private/language-configuration.ss
@@ -511,12 +511,14 @@
                                
                                (let-values ([(vis-lang vis-settings)
                                              (cond
-                                               [(or (not selected-language)
-                                                    (eq? selected-language language-to-show))
+                                               [(and (not selected-language)
+                                                     (eq? language-to-show language))
                                                 (values language-to-show settings-to-show)]
-                                               [(and language-to-show settings-to-show)
-                                                (values selected-language
-                                                        (send selected-language default-settings))]
+                                               [(eq? selected-language language)
+                                                (values language 
+                                                        (if (eq? language language-to-show)
+                                                            settings-to-show
+                                                            (send language default-settings)))]
                                                [else (values #f #f)])])
                                  (cond
                                    [(not vis-lang) (void)]
diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index 425ab57b4e..169f2e84bf 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -498,7 +498,7 @@
     (define (update-compilation-on-radio-box-visibility)
       (send compilation-on-radio-box enable (equal? 0 (send annotations-radio-box get-selection))))
     
-    (send collection-paths-lb set '())
+    (install-collection-paths '(default))
     (update-buttons)
     
     (case-lambda