diff --git a/collects/compiler/src2src.rkt b/collects/compiler/src2src.rkt
index 175ad03a68..f6d635f772 100644
--- a/collects/compiler/src2src.rkt
+++ b/collects/compiler/src2src.rkt
@@ -1576,7 +1576,7 @@
 	 norm?))))
 
   (define (parse-let % rec? stx env loop)
-    (syntax-case stx ()
+    (syntax-case (syntax-disarm stx code-insp) ()
       [(_ ([vars rhs] ...) . body)
        (let* ([varses (syntax->list (syntax (vars ...)))]
 	      [rhses (syntax->list (syntax (rhs ...)))]