From 78dc617a1496c3f1fe29b21176b52982b87ff79e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 27 Feb 2010 12:40:38 +0000
Subject: [PATCH] PR 10786

svn: r18378
---
 collects/drscheme/private/unit.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index fb4a99923c..67c1f52236 100644
--- 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?