diff --git a/collects/drscheme/private/rep.ss b/collects/drscheme/private/rep.ss
index 9a5004e3b2..4f5c544e59 100644
--- a/collects/drscheme/private/rep.ss
+++ b/collects/drscheme/private/rep.ss
@@ -283,8 +283,8 @@ TODO
                                                  (and (is-a? tlw drscheme:unit:frame<%>)
                                                       (send (send tlw get-definitions-text)
                                                             get-next-settings)))))])
-                          (drscheme:help-desk:help-desk str))))]
-                 [else                   
+                          (drscheme:help-desk:help-desk str #|!!!!!!|#))))]
+                 [else
                   (drscheme:help-desk:help-desk)])))))
     
     (send drs-bindings-keymap add-function
diff --git a/collects/drscheme/private/unit.ss b/collects/drscheme/private/unit.ss
index 29cd73e1bc..4c68fd7267 100644
--- a/collects/drscheme/private/unit.ss
+++ b/collects/drscheme/private/unit.ss
@@ -151,7 +151,7 @@ module browser threading seems wrong.
                          str 
                          (- 200 (string-length (string-constant search-help-desk-for)))))
                        menu
-                       (λ x (help-desk:help-desk str)))))))
+                       (λ x (help-desk:help-desk str #|!!!!|#)))))))
            
            (when (is-a? text editor:basic<%>)
              (let-values ([(pos text) (send text get-pos/text event)])
diff --git a/collects/lang/htdp-langs.ss b/collects/lang/htdp-langs.ss
index d9dcd2f4e5..1567aa62c3 100644
--- a/collects/lang/htdp-langs.ss
+++ b/collects/lang/htdp-langs.ss
@@ -533,6 +533,15 @@
                keywords]
               [(drscheme:teachpack-menu-items) htdp-teachpack-callbacks]
               [(drscheme:special:insert-lambda) #f]
+              [(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 (cadr m))])
+                 (if m
+                   (format "L:~a" m)
+                   (error 'drscheme:help-context-term
+                          "internal error: unexpected module spec")))]
               [(tests:test-menu tests:dock-menu) #t]
               [else (inner (drscheme:language:get-capability-default key) 
                            capability-value