From a871476756a86ad67001df4a685f9f7028782440 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 29 Jul 2008 04:33:36 +0000
Subject: [PATCH] typo

svn: r10954
---
 collects/lang/htdp-langs.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss
index 1567aa62c3..b8068f3dc8 100644
--- a/collects/lang/htdp-langs.ss
+++ b/collects/lang/htdp-langs.ss
@@ -536,7 +536,7 @@
               [(drscheme:help-context-term)
                (let* ([m (get-module)]
                       [m (and m (pair? m) (pair? (cdr m)) (cadr m))]
-                      [m (and m (regexp-match #rx"^(lang/[^/.]+).ss$"))]
+                      [m (and m (regexp-match #rx"^(lang/[^/.]+).ss$" m))]
                       [m (and m (cadr m))])
                  (if m
                    (format "L:~a" m)