PR 10786

svn: r18378
2010-02-27 12:40:38 +00:00 · 2010-02-27 12:40:38 +00:00 · 78dc617a14
commit 78dc617a14
parent 508b2ca269
1 changed files with 1 additions and 1 deletions
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@ -3247,7 +3247,7 @@ module browser threading seems wrong.
                 [lang (drscheme:language-configuration:language-settings-language lang/config)]
                 [strs (send lang get-language-position)]
                 [can-browse?
-                  (or (regexp-match #rx"Module" (last strs))
+                  (or (is-a? lang drscheme:module-language:module-language<%>)
                      (ormap (λ (x) (regexp-match #rx"PLT" x))
                             strs))])
            (unless can-browse?