diff --git a/collects/scribble/lp/lang/lang.ss b/collects/scribble/lp/lang/lang.ss
index 7ecc7353d5..f8eb1491b6 100644
--- a/collects/scribble/lp/lang/lang.ss
+++ b/collects/scribble/lp/lang/lang.ss
@@ -6,6 +6,14 @@
 (require (for-syntax scheme/base syntax/boundmap scheme/list syntax/kerncase
                      syntax/strip-context))
 
+;; --- MF: bad hack for getting rid of comments
+(provide code:comment)
+(define-syntax (code:comment stx)
+  (if (eq? (syntax-local-context) 'expression)
+      (syntax (void))
+      (syntax (define (f x) x))))
+;; --- MF
+
 (begin-for-syntax
   (define first-id #f)
   (define main-id #f)